cara utk menyembunyikan file "SUPER HIDDEN FILE". ini adalah tehnik yg biasa
digunakan oleh virus masakini
Sekarang coba buka notepad
lalu ketik kode berikut
'=================Kode start=============
on error resume next
dim fs,myfile,ag
set fs = createobject(" Scripting.FileSystemObject")
myfile=inputbox ("Nama File","Sembunyikan File","")
set ag = fs.getfile(myfile)
ag.attributes = 39
'=================End Code=============
Simpan File tsb dengan nama "sembunyi.vbs"
dengan cara Save As , pada Save As Type pilih All Files (Ini jgn sampe lupa, atau file jadi txt)
Jalankan program dengan dobel klik pada file
isi kotak isian dengan mengetik nama file lengkap (path) yg akan disembunyikan.
contoh: "C:coba.txt" (tanpa tanda "", jangan lupa lengkap dengan 'backslash')
File "C:coba.txt" akan menghilang!
lalu ketik kode berikut, untuk mengembalikan file
'==================Kode start===========
on error resume next
dim fs,myfile,ag
set fs = createobject(" Scripting.FileSystemObject")
myfile=inputbox ("Nama File","Balikin File","")
set ag = fs.getfile(myfile)
ag.attributes = 32
'=================End Code=============
Lalu simpan dengan nama "balikin.vbs", dengan cara yg sama seperti yg telah dijelaskan diatas.
Ketik nama file yg ingin di kembalikan, contoh "C:coba.txt" (tanpa tanda "", jangan lupa lengkap dengan 'backslash')
maka InsyaAllah File yg telah disembunyikan akan kembali :lol:
Untuk menyembunyikan Folder, tinggal ganti
set ag = fs.getfolder(myfile)
Bagikan
Cara Menyembunyikan File / Folder
4/
5
Oleh
Saktian
