Tutorial Membuat Software Folder Locker Menggunakan VB.Net

Program ini memiliki kemampuan untuk mengunci folder agar tidak bisa diakses oleh orang-orang yang tidak Anda inginkan. Dengan begitu, Anda bisa menyimpan file pribadi Anda atau file-file penting lainnya dengan aman. Folder yang telah dikunci tidak akan bisa diakses, di-copy, di-cut, atau bahkan di-delete.

Berikut adalah gambar Software Folder Locker:

Dari tampilan program diatas, komponen yang diperlukan adalah 3 Button, 3 Label, 1 Text Box, 1 MenuStrip, dan 1 FolderBrowserDialog. Seperti biasa untuk membuat aplikasi baru pilih file -> New Project -> Windows Forms Application dan pada kolom name beri nama Folder Locker.

Tambahkan komponen-komponen di bawah ini kedalam form, Anda bisa menyusunnya seperti gambar diatas atau mendesain sendiri tampilannya sesuai keinginan Anda.

Pada Toolbox All Windows Form tambahkan 3 Button (drag button ke form/Double Click Button)

Pada Toolbox All Windows Form tambahkan 3 label (drag label ke form/Double Click Label)

Pada Toolbox All Windows Form tambahkan 1 Textbox (drag Textbox ke form/Double Click Textbox)

Pada Toolbox All Windows Form tambahkan 1 MenuStrip (drag Menustrip ke form/Double Click MenuStrip)

Pada Toolbox All Windows Form tambahkan 1 FolderBrowserDialog (drag FolderBrowserDialog ke form/Double Click FolderBrowserDialog)

Pada Properties Form1

Pada Code Editor sebelum public class Form1 masukkan code:

Masukan code seperti gambar berikut ini:

Properties pada Button 1

Image : Import gambar search
Text : Kosongkan

Kemudian double click Button1 dan masukkan code :
'Mencari folder yang akan dikunci/dibuka
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With FolderBrowserDialog1
If .ShowDialog() = DialogResult.OK Then
TextBox1.Text = .SelectedPath
End If
End With
   
End Sub

Properties pada Button 2
Image : import gambar gembok
Text : kosongkan

Kemudian double click Button2 dan masukkan code:
'Syntax ini digunakan untuk mengunci folder
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim fs As FileSystemSecurity =
File.GetAccessControl(TextBox1.Text)
fs.AddAccessRule(New
FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(TextBox1.Text, fs)
MsgBox("Berhasil, Folder Telah Dikunci")
   
End Sub

Properties pada Button 3
Image : Import gambar gembok terbuka
Text : kosongkan

Kemudian double click Button3 dan masukkan code:
'Syntax ini digunakan untuk membuka folder yang telah dikunci
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim fs As FileSystemSecurity =
File.GetAccessControl(TextBox1.Text)
fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName,
FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(TextBox1.Text, fs)
MsgBox("Berhasil, Folder Telah Dibuka Kembali")
   
End Sub

Klik Label1 dan ubahlah Text dari kolom propertis Label1 dengan Browse Folder:
Klik Label2 dan ubahlah Text dari kolom propertis Label1 dengan Lock Folder
Klik Label3 dan ubahlah Text dari kolom propertis Label1 dengan Unlock Folder

Klik MenuStrip1 dan ubahlah Text "Type Here" Menu Strip seperti gambar dibawah ini:

Double Click pada Menu item File -> Cari Folder masukkan kode dibawah ini:
Private Sub SearchFolderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchFolderToolStripMenuItem.Click
With FolderBrowserDialog1
If .ShowDialog() = DialogResult.OK Then
TextBox1.Text = .SelectedPath
End If
End With
   
End Sub

Double click pada Menu item File -> Exit masukkan kode di bawah ini:
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
MsgBox("Kunjungi Terus Pus-Tut.blogspot.com Untuk Mendapatkan Referensi Belajar Pemrograman Yang Kamu Sukai :)")
Close()
   
End Sub

Tweet