Full Tutorial - Manipulasi Folder dan Protect

Pada waktu yang indah ini blog yang sedang kalian baca mau share project + Tutorial Manipulasi Folder yang bisa kalian coba untuk mengamankan folder kalian dari tangan jahil. Maksud manipulasi folder disini adalah untuk menjadikan content folder kita berubah total menjadi filesystem yang seperti sampah itu
, saya memanfaatkan Windows Class Indentifiter yang asli nya digunakan sebagai code untuk memanggil folder filesystem yang memang sudah disediakan oleh windows namun ternyata, code tersebut bisa di jadikan sebagai nama folder yang kita buat jadi otomatis folder yang kita rename dengan code tersebut akan dikenali sebagai filesystem, dan content yang ada di dalamnya juga akan berubah susai jenis code itu, tapi content yang aslinya tetap dipertahankan jika kita mengubah nama dan type folder tanpa melibatkan code itu lagi, dan lagi-lagi ini sangat keren sebagai alternatif lock folder dengan vb6.

Untuk memulainnya siapin dulu 2 file tanpa ekstensi untuk menyimpan informasi folder yang telah dimanipulasi dan password admin, caranya dengan klik kanan pada area kosong, pilih New > Text document. maka file baru akan keluar lalu rename lah dengan menghapus karakter setelah nama file, contoh "xxx.txt" maka akan menjadi "xxx", dalam contoh ini nama file untuk menampung informasi folder adalah "xfolder" dan untuk menampung password admin adalah "admin".

Selanjutnya buat desain seperti ini;

Component;

• 6 CommandButton

1. Button1 = Tambah
2. Button2 = Kembalikan
3. Button-refresh = Refresh,
4. Button4 = Hapus
5. Button5 = keluar
6. Button6 = Set ulang admin pass

• 2 ListBox
• 1 ComboBox
• 3 Label

Code untuk form load;

 Dim st As String
Open App.Path & "\users\admin" For Input As #1
Input #1, upass
Close #1
a:
    st = InputBox("Masukan pass", "ADMIN")
    If StrPtr(st) = 0 Then
        End
    End If
    If Not st = upass Then
        MsgBox "Password Salah !!!", vbCritical
        GoTo a
    End If
   
'a berehti sampai sini
refresh_Click

Pada form load ini, program akan menampilkan InputBox unutk login, buat dulu file nya sesuai yang sudah saya jelaskan di atas, dalam contoh ini nama filenya adalah "admin" inget, tanpa ekstensi.

Code untuk tombol tambah;

Dim sh As New Shell
Dim shfol As Folder2

Set shfol = sh.BrowseForFolder(Me.hWnd, "Pilih Folder Target", 0)

If Not shfol Is Nothing Then
    manip (shfol.Self.Path)
End If

Tujuan untuk tombol tambah adalah untuk mengambil alamat path folder dengan tampilan GUI menggunakan BrowseForFolder, setelah itu kita akan membuat sub baru, nama subnya adalah manip.
Code untuk sub manip;

 Sub manip(alamat As String)
Dim fso As New FileSystemObject
Dim fol As Folder
Dim txtedit As TextStream
Dim xfolder As String
Dim samaran As String
xfolder = App.Path & "\xfolder\"


Select Case Combo1.ListIndex
    Case -1 Or 0
        samaran = ".{20d04fe0-3aea-1069-a2d8-08002b30309d}"
    Case 1
        samaran = ".{645FF040-5081-101B-9F08-00AA002F954E}"
    Case 2
        samaran = ".{d20ea4e1-3957-11d2-a40b-0c5020524153}"
    Case 3
        samaran = ".{208d2c60-3aea-1069-a2d7-08002b30309d}"
    Case 4
        samaran = ".{7007acc7-3202-11d1-aad2-00805fc1270e}"
    Case 5
        samaran = ".{2227a280-3aea-1069-a2de-08002b30309d}"
    Case 6
        samaran = ".{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}"
End Select

Set fol = fso.GetFolder(alamat)
namaf = fol.Name
pf = fol.ParentFolder
fol.Name = fol.Name & samaran

Set txtedit = fso.CreateTextFile(xfolder & namaf, True)
    txtedit.WriteLine namaf
    txtedit.WriteLine pf
    txtedit.WriteLine fol.Name
txtedit.Close
List2.AddItem namaf & " -> Manipulasi sukses"
refresh_Click
End Sub

 Dari sub ini menjelaskan, program akan mengganti nama folder dengan menambahkan code CLSID pada nama depannya kemudian program akan membuat file baru untuk menyimpan informasi folder.

Code untuk tombol kembalikan

 If Not List1.Text = vbNullString Then

Dim fso As New FileSystemObject
Dim fol As Folder
Dim fil As File
Dim fill As TextStream
Dim nmfolder As String
Dim alamatfol As String
Dim nmsamaran As String

Set fil = fso.GetFile(App.Path & "\xfolder\" & List1.Text)

Set fill = fil.OpenAsTextStream(ForReading)
    nmfolder = fill.ReadLine
    alamatfol = fill.ReadLine
    nmsamaran = fill.ReadLine
fill.Close

Set fol = fso.GetFolder(alamatfol & "\" & nmsamaran)
fol.Name = nmfolder
fil.Delete
List2.AddItem nmfolder & " -> Sukses Dikembalikan"
refresh_Click
Else
MsgBox "Belum ada folder yang terpilih", vbCritical, "Pilih Folder"
End If

dari code diatas, program akan mengembalikan nama folder yang telah dimanipulasi sebelumnya dengan menggunakan informasi dari List1.Text

Code untuk tombol refresh

List1.Clear
Dim fso As New FileSystemObject
Dim fol As Folder
Dim fil As File

Set fol = fso.GetFolder(App.Path & "\xfolder")
For Each fil In fol.Files
    List1.AddItem fil.Name
Next

pada tombol ini, program akan mengecek file(yang berisi informasi folder) dan menulis nama folder nya di list1.

Code untuk Set Ulang Admin Pass

 Dim newpass As String
Dim oldpass As String
b:
oldpass = InputBox("Masukan Pass Lama", "Admin")
If StrPtr(oldpass) = 0 Then
    Exit Sub
End If

If Not oldpass Like upass Then
    MsgBox "Password lama salah", vbCritical
    GoTo b
Else
c:
    newpass = InputBox("Masukan Pass baru", "Perbarui password")
    If StrPtr(newpass) = 0 Then
        MsgBox "Password gagal diperbarui", vbInformation
        Exit Sub
    End If
    If Not newpass = vbNullString Then
       Open App.Path & "\users\admin" For Output As #1
       Print #1, newpass
      Close #1
      MsgBox "Password berhasil diperbarui", vbInformation
    Else
      MsgBox "password gak boleh kosong", vbCritical
      GoTo c
    End If
End If

Pada bagian ini gak usah di jelasin, pasti udh pada tau heheh.
 Untuk kali ini cukup sampe sini saja, dan coba run programnya, semoga berhasil. Thanks

Lihat videonya