Cara Membuat Browse Folder

Jika kita ingin membuat antivirus atau pengunci folder,pasti kita akan ketemu pada tutorial yang kali ini. Yaitu Browse folder .
Gambar dilihat dari gambar di atas .
Untuk membuat browse for folder, anda cukup copy code di bawah ini dan di simak baik-baik .

[ VB 6.0 ]

Buat ini dimodule .

Public Declare Function SHBrowseForFolder Lib "shell32" _    (lpbi As BrowseInfo) As LongPublic Declare Function SHGetPathFromIDList Lib "shell32" _    (ByVal pidList As Long, ByVal lpBuffer As String) As LongPublic 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 LongEnd TypePublic Const BIF_RETURNONLYFSDIRS = 1Public Const MAX_PATH = 260Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _    (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Pada Form buat 1 buah kontrol Command Button dan ketikkan ini.(bukan di form loadnya )

Function SelectFolder()    Dim strPath As String, Bi As BrowseInfo, iShow As Long     On Error GoTo Select_Error    Bi.hWndOwner = Me.hWnd    Bi.lpszTitle = lstrcat("Pilih folder yg ingin disamarkan .....", "")    Bi.ulFlags = 2 'BIF_RETURNONLYFSDIRS    iShow = SHBrowseForFolder(Bi)    If iShow Then        strPath = String$(MAX_PATH, Chr(0))        SHGetPathFromIDList iShow, strPath        strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1)        SelectFolder = strPath    End If     Exit FunctionSelect_Error:    SelectFolder = ""End Function

Command1_click()Me.TxtPath.Text = SelectFolderEnd if

[ VB .NET ]
Kode untuk memanggilnya adalah :

Dim dlg As New FolderBrowserDialog

'jk ingin yg MyDocuments saja, aktifkan kode d bawah ini 'dlg.RootFolder = Environment.SpecialFolder.MyDocuments
dlg.Description = "Pilih Folder"
If dlg.ShowDialog() = 1 Then MsgBox(dlg.SelectedPath) 'folder yg terpilih End If

Selesai juga, semoga dapat membantu :)