Browse Folder

Berikut ini adalah kode yang digunakan untuk membuka kotak dialog Browse Folder.

[ VB 6.0 ]
Tambahkan Reference 'Microsoft Shell Controls And Automation'.
Kode untuk memanggilnya adalah :

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:

Bila Anda menginginkan hanya mencakup folder tertentu, misalnya hanya di "D:\" saja. Gantikan kode yang berwarna merah dengan kode berikut :

Set fo = sh.BrowseForFolder(Me.hWnd, "Pilih Folder", 0, "D:\")

[ 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