open / Browse Folders with Button

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