Displaying Browse for Folder Dialog Box

[dreamvb]

Hi, you can also get the Broswe for folder using the Shell Object here a example if helps.

Private Sub CmdBrowse_Click()
Dim oShell As Object, oFolder As Object
 
    Set oShell = CreateObject("Shell.Application")
    
    Set oFolder = oShell.BrowseForFolder(0, "Select a folder", 0)
    
    If Not oFolder Is Nothing Then
        MsgBox oFolder.Items.Item.Path
    End If
    
    Set oFolder = Nothing
    Set oShell = Nothing
End Sub