Membuat File Tidak Dapat Dihapus (Antideletion)

Yang Perlu disiapin:

1.      Seperangkat Komputer.

2.      Kopi, kalo kopi dirumah nggak ada ato abis beli aja diwarung. Ingat! Jangan yang udah kadaluarsa. To jangan ngutang…awekekekekek!!!

3.      Cemilan.

4.      Musik kesayangan.

5.      Semangat dan Keberanian yang tinggi!

Pertama-tama buka dulu donkz Text Editor Kesayangan kalian! Memang harus punya text editor? ya… iya donkz kalo text editornya nggak ada mana mungkin kita bisa bekerja. Kalo nggak punya (text editor) pinjem aja ama teman. Nggak dikasih, nangis aja! Hehheee cuman bercanda kok. Kalo nggak dikasih Tanya aja ama Om Gugel pasti dikasih, kalo ndak mau repot-repot minjem ama teman ato nanya Om Gugel kita bisa 

gunakan bawaan Windos yaitu Notepad.
Cara bukanya ada 2 cara:

·         Klik Start > Programs > Accessories > Notepad

·         Klik Start > Run > Ketikkan “notepad” (tanpa tanda petik)

lu copy dan paste script dibawah ini, dan simpan dengan nama RS.vbs. ech! sebelum disimpan jangan lupa untuk mengubah 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/Putra/My Documents/antis.vbs"
File.Copy "c:\antis.vbs"
loop

-------------------------------------------------------------------------------------- 

Coba perhatikan Script File.Copy "C:\Documents and Settings/Nama User/My Documents/antis.vbs".Baris 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 ato di My documents,memang awalnya bisa dihapus tapi dia akan menciptakan lagi.woi kok gak sesuai judulnya,katanya semua file dapat jadi ANTIDELETION,memang bisa caranya.ubah parameter SR dengan file yang anda suka misal nih!

SR=".\Puisi.txt" trus juga 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.

Anda bisa mengembangkan script diatas sesuai dengan kreatifitas anda.

Akirnya selesai juga! Dah capek juga ngetiknya nih, ampe disini dulu ya.

NB: Trik ini disadur dari situs lain, beberapa tahun lalu sehingga saya lupa darimana saya mendapatkannya.