Membuat Aplikasi Hide Folder Menggunakan Visual Basic

Membuat Aplikasi Hide Folder Menggunakan Visual Basic - Bahasa pemrograman Visual Basic sangat banyak digunakan oleh pemula yang ingin terjun ke dalam dunia programmer, salah satunya yaitu dengan membuat Aplikasi Hide Folder ini yang dapat digunakan untuk menyembunyikan file atau data pada komputer anda yang dianggap penting. Oleh karena itu aplikasi ini bisa digunakan untuk membantu anda dalam mengamankan folder tanpa memindahkan ke flashdisk atau alat penyimpanan yang lainnya.

Untuk membuat Aplikasi Hide Folder dengan menggunakan Visual Basic anda harus membunyai aplikasi visual basic terlebih dahulu, jika anda sudah mempunyai mari kita belajar untuk membuat aplikasi yang telah dibicarakan tadi.

Langkah - Langkah Membuat Aplikasi Hide Folder

1. Buka Aplikasi Microsoft Visual Basic 0.6 pada komputer anda.
2. Buatlah sebuah modul seperti berikut :
   
   Option Explicit
   Public Type BrowseInfo
        hwndOwner As Long
        pIDLRoot As Long
        pszDisplayName As Long
        lpszTitle As Long
        ulFlags As Long
        lpfnCallback As Long
        lParam As Long
        iImage As Long
   End Type
   
   Public Const BIF_RETURNONLYFSDIRS = 1
   Public Const MAX_PATH = 260
   
   Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
   Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
   Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
   Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
   
   Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
         
       'declare variables to be used
        Dim iNull As Integer
        Dim lpIDList As Long
        Dim lResult As Long
        Dim sPath As String
        Dim udtBI As BrowseInfo
   
       'initialise variables
        With udtBI
           .hwndOwner = hwndOwner
           .lpszTitle = lstrcat(sPrompt, "")
           .ulFlags = BIF_RETURNONLYFSDIRS
        End With
       'Call the browse for folder API
        lpIDList = SHBrowseForFolder(udtBI)
         
       'get the resulting string path
        If lpIDList Then
           sPath = String$(MAX_PATH, 0)
           lResult = SHGetPathFromIDList(lpIDList, sPath)
           Call CoTaskMemFree(lpIDList)
           iNull = InStr(sPath, vbNullChar)
           If iNull Then sPath = Left$(sPath, iNull - 1)
        End If
       'If cancel was pressed, sPath = ""
        BrowseForFolder = sPath
   End Function
3. Selanjutnya yaitu membuat form aplikasinya, silahkan anda bisa buat sesuai dengan keinginan anda, akan tetapi untuk combonennya silahkan perhatikan pada gambar dibawah ini.
   
4. Pada gambar diatas untuk File Name = Label1 , TextBox1 , Select Folder = Command3 , Hide = Command1 dan Show = Command2.
5. Double klik pada Form1, kemudian gunakan script berikut.
   Private Sub Command1_Click()
       Dim fs As New FileSystemObject
       Dim f
       Dim strPath As String
          If Text1.Text = "" Then
          MsgBox "Select Folder", vbInformation + vbOKOnly
          Exit Sub
          End If
       strPath = Text1.Text
       
       Name strPath As strPath & "A"
           
       Set f = fs.GetFolder(strPath & "A")
       
       f.Attributes = -1   
       
   End Sub
   
   Private Sub Command2_Click()
       Dim fs As New FileSystemObject
       Dim f
       Dim strPath As String
        If Text1.Text = "" Then
          MsgBox "Select Folder", vbInformation + vbOKOnly
          Exit Sub
          End If
      strPath = Text1.Text
       Set f = fs.GetFolder(strPath & "A")
       f.Attributes = 0
       Name strPath & "A" As strPath
   End Sub
   
   Private Sub Command3_Click()
   Text1.Text = BrowseForFolder(hWnd, "Please select a Server folder.")
   End Sub
6. Untuk mencoba aplikasinya silahkan tekan F5 atau Run

Untuk download sourcecode Aplikasi Hide Folder ini silahkan klik link dibawah ini

Download Sourcecode Aplikasi Hide Folder

Demikian tutorial Membuat Aplikasi Hide Folder Menggunakan Visual Basic semoga dapat bermanfaat bagi anda yang membutuhkan.