Function BrowseFolder(Optional StartIn = "")
Dim FolderName As String
If StartIn > "" Then ChDir StartIn
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
BrowseFolder = .SelectedItems(1)
Err.Clear
On Error GoTo 0
End With
End Function
Dim FolderName As String
If StartIn > "" Then ChDir StartIn
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
BrowseFolder = .SelectedItems(1)
Err.Clear
On Error GoTo 0
End With
End Function
StartIn
Views 4,347
Downloads 1,314
CodeID
DB ID
ANmarAmdeen
602
Revisions
v1.0
Thursday
June
14
2018