Computer Aided Automation
open / Browse Folders with Button - Printable Version

+- Computer Aided Automation (https://computeraidedautomation.com)
+-- Forum: CAA Discussions (https://computeraidedautomation.com/forum-7.html)
+--- Forum: VBA Programming (https://computeraidedautomation.com/forum-1.html)
+---- Forum: AutoCAD VBA (https://computeraidedautomation.com/forum-3.html)
+---- Thread: open / Browse Folders with Button (/thread-24.html)



open / Browse Folders with Button - techberth - 08-12-2019

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