Membuat Browse Folder

Dalam membuat suatu aplikasi kadang kita memerlukan fungsi browse dialog. Nah, untuk membuat browse folder silahkan ikuti caranya sbb:

VB 6.0
Pada project anda, tambahkan Reference 'Microsoft Shell Controls And Automation' dan untuk memanggilnya ketik kode berikut:

Dim sh As New Shell
Dim fo As Shell32.Folder

On Error GoTo Ero
Set fo = sh.BrowseForFolder(Me.hWnd, "Pilih Folder", 0)
MsgBox fo.Self.Path 'folder yang terpilih
Ero:

VB .NET
Kode untuk memanggilnya adalah:

Dim dlg As New FolderBrowserDialog

dlg.Description = "Pilih Folder"

If dlg.ShowDialog() = 1 Then
MsgBox(dlg.SelectedPath) 'folder yg terpilih
End If

DOWNLOAD PROJECT VB 6.0
DOWNLOAD PROJECT VB .NET