CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to show Browse for folder
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260
 
Function BrowseFolder(Optional Caption As String, Optional InitialFolder As String) As String
    'Set a reference to "Microsoft shell controls and automation"
    Dim SH As Shell32.Shell
    Dim F As Shell32.Folder
    Set SH = New Shell32.Shell
    Set F = SH.BrowseForFolder(0&, Caption, BIF_RETURNONLYFSDIRS, InitialFolder)
    If Not F Is Nothing Then
        BrowseFolder = F.Items.item.Path
    End If
End Function
 
Private Sub Command1_Click()
    'How to call this function
    Dim FName As String
    FName = BrowseFolder("Select a folder to Insert Pictures", "My Computer")
End Sub