Cara Sederhana Mengunci Folder di Flashdisk dengan Menggunakan Microsoft Visual Basic 6.0

Sebenernya program ni udah agak lama ku buat …
ya udah dari pada bosan … mending di share yap langsung aja
bahan bahan :
1. textbox
2. command button

oiya buat 1 folder dan isi semua file yang mau di sembunyikan ..
contoh :
* Anda membuat folder bernama "my doc".
lalu agan isikan file filenya, oke

kalo udah.
klik view code di form vb ..
isikan code berikut

Private Sub Command1_Click()
If Text1.Text = "Anda" Then
SetAttr "my doc", vbNormal
End
Else
MsgBox " Salah Password nya ", vbCritical, "Anda"
End If
End Sub

Private Sub Command2_Click()
SetAttr "my doc", vbHidden Or vbSystem
End
End Sub 

* * *

Penjelasan :

[+]If Text1.Text = “Anda” Then <<< Anda adalah password na
[+]SetAttr “my doc”, vbNormal << membuat folder My doc menjadi normal
[+]SetAttr “my doc”, vbHidden Or vbSystem << membuat folder my doc menjadi hidden system

Kekurangan :
folder my doc bisa kok di buka tanpa harus memasukan password, di folder option …
biar keren gitu deh kalo pakai aplikasi ndiri..

Kesimpulan :
jadi ni program cuman menghidden folder system gitu …
setelah di buat aplikasi na lalu di apain ?

ya masukin folder my doc + aplikasi ke flasdisk lahh. . :D