Melihat Folder Window

- Ketik diForm

Public Sub OpenDirectory(Directory As String)
ShellExecute 0, "Open", Directory, vbNullString, _
vbNullString, SW_SHOWNORMAL
End Sub

Private Sub Command1_Click()
'Ganti "C:\" di bawah dengan folder yang _
'ingin Anda lihat
OpenDirectory ("C:\")
End Sub
---------------------------------------------------
- Ketik diModule

Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Const SW_SHOWNORMAL = 1