08-12-2019, 07:52 AM
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