Thread Rating:
  • 1 Vote(s) - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
open / Browse Folders with Button
#1
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
Reply
#1
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
Reply
CAA


Messages In This Thread
open / Browse Folders with Button - by techberth - 08-12-2019, 07:52 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)