Membuat Pengunci Folder di Flasdisk Sederhana Menggunakan VB6 2012-02-22T14:05:00-08:00Bhepal.Corp 2ndVisual Basic 6.0|Comments Membuat Pengunci Folder di Flasdisk Sederhana Menggunakan VB6

About Author

Name : Synyster Bluqhkgates

Nick ID : BPL_bluqhk_CRP

i wasn't nobody, i also don't like a nobody, i don't have any knowledge, i'm just an ordinary person, born from the middle to lower, maybe i wasn't a cleaver, but that doesn't mean stupid. IT'S ME !!!not you, your friend or your idol.. and don;t ever think underestimate to me..

langsung aja gan

bahan bahan :

1.textbox
2.command button

buat 1 folder dan isi semua file yang mau di sembunyikan ..
contoh
* ua membuat folder bernama Ndut

lalu ua isikan file-file

__________________________

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

Private Sub Command1_Click()
If Text1.Text = "K2" Then
SetAttr "Ndut", vbNormalEnd
Else
MsgBox " Passwordnya salah gan ", vbCritical, ">__<""
End If
End Sub


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

Penjelasan :

[+]If Text1.Text = "K2" Then <<< K2 adalah password nya

[+]SetAttr "Ndut", vbNormal << membuat folder Ndut menjadi normal

[+]SetAttr "Ndut", vbHidden Or vbSystem << membuat folder dc menjadi hidden system

Kekurangan :

folder Ndut bisa kok di buka tanpa harus memasukan password, di folder option ...
biar keren gitu deh kalo pakai aplikasi sendiri

Kesimpulan :

jadi ni program cuman menghidden folder system gitu ...

setelah di buat aplikasi na lalu di apain ?

ya masukin folder Ndut + aplikasi ke flasdisk

sekian dan terima kasih.