Membuat Pengunci Folder di Flasdisk Sederhana Menggunakan VB6

Untuk menambah ke amanan data pad flasdisk kita, ada baik nya kita membuat program  ini.

berikut cara membuat nya:

Langsung ke TKP 

Bahan bahan :

1 Textbox
2 Command Button

Buat satu folder dan isi semua file yang mau di sembunyikan...
contoh
saya membuat folder dengan nama Aq

lalu saya isikan semua file-file

Ok
klik view code di form vb... isikan code berikut

Private Sub Command1_Click() If Text1.Text = "ER6" Then SetAttr "Aq", vbNormal End Else MsgBox " Passwordnya salah gan ", vbCritical,">__<"" End If End Sub Private Sub Command2_Click() SetAttr "Aq", vbHidden Or vbSystem End End Sub

Penjelasan :

[+] If Text1.Text = "ER6" Then =>> ER6 adalah password nya

[+] SetAttr "Aq", vbNormal =>> membuat folder Aq menjadi normal

[+] SetAttr "Aq", vbHidden Or vbSystem =>> membuat folder dc menjadi hidden system

Kesimpulan :

jadi, program ini cuma menghidden folder system gitu...

setelah aplikasi ini di buat, masukin folder Aq + aplikasi ke flasdisk

sekian dan terimakasih.

Semoga program ini bermanfaat bagi anda.