Membuat File Tidak Dapat Dihapus (Antideletion)

Membuat File Tidak Dapat Dihapus (Antideletion)

Pertama-tama buka dulu notepad cara bukanya ada 2 cara:

• Klik Start > Programs > Accessories > Notepad
• Klik Start > Run > Ketikkan “notepad” (tanpa tanda petik)

Lalu copy dan paste script dibawah ini, dan simpan dengan nama RS.vbs. dengan cara ganti tulisan “Save as Type” dari Text documents jadi "All files"

Dim fso,File
SR = ".\RS.vbs"
do
set fso = createobject("scripting.filesystemobject")
set File=fso.GetFile(SR)
File.Copy "C:\Documents and Settings/Nama User/My Documents/antis.vbs"
File.Copy "c:\antis.vbs"
loop

Nama User adalah nama user yang ada di kompy kamu, jadi baris itu musti diganti dengan nama user yang ada di kompy kamu. Kalo nggak diganti maka setiap kali RS.vbs dijalankan akan muncul pesan error “Path not Found”.

Setelah itu jalankan,dia akan mengcopykan dirinya sendiri di My Documents dan di drive C dengan nama antis.vbs, nah sekarang coba delete antis.vbs yang ada di drive C atau di My documents, memang awalnya bisa dihapus tapi dia akan menciptakan lagi.
Untuk menjadi ANTIDELETION, caranya ubah parameter SR dengan file yang anda suka

SR=".\Puisi.txt"

Nama file di drive nya juga dapat diganti sesuka kamu kok contoh

File.Copy "C:\Puisi.txt"

Misalkan file yang akan di buat antideletion ada di Drive C: dan file scriptnya ada di Drive D: gimana? Kita cukup mengganti parameter dibawah ini:

SR=”C:\Puisi.txt”

File.Copy “D:\Puisi.txt”

maka Insya Allah, Puisi.txt ketika selesai tercopy gak akan bisa terhapus.

Kelemahannya: RS.vbs(script pengantarnya) gak boleh terhapus dan harus tereksekusi,untuk mengatasi ini kamu dapat menyembunyikan RS.vbs di folder yang Hidden dan agar tereksekusi otomatis kamu bisa gunakan manipulasi WIN.INI agar me-RUN RS.vbs otomatis saat windows starting.

[windows]
load=c:\hidden_folder\RS.vbs run=c:\hidden_folder\RS.vbs

Atau bisa juga file ini  diletakkan didalam folder “Startup” caranya adalah:

Buka Jendela Explorer, Drive C:Documents and SettingsèAll UsersèStart MenuèProgramsèStart Up.

Maka setiap kali komputer Startup kedua file diatas akan tereksekusi secara otomatis.

Read More : http://ruolanxin.blogspot.com/2011/04/membuat-file-tidak-dapat-dihapus.html

Posted in: Computer