Computer Aided Automation

Full Version: open / Browse Folders with Button
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Open / browse Folders

Code:
Private Sub btnBrowseForFolder_Click()

    Dim strFolderName As String

    strFolderName = BrowseFolder("Choose Folder For Import")

    If Len(strFolderName) > 0 Then
        ' Do something with the selected folder
    Else
        'No folder chosen, or user canceled
    End If

End Sub