hiden file

Assalamu'alaikum

mari bersama-sama kita belajar pemrograman VB, dengan VBS(Visual Basic Script)
yang akan di bicarakan adalah 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

Untuk menyembunyikan Folder, tinggal ganti

set ag = fs.getfolder(myfile)

selamat mencoba...!