Asks user for a folder, starting with certain folder
Function Ask4Folder(Optional StartIn = "")
Dim FolderName As String
If StartIn > "" Then ChDir StartIn
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
Ask4Folder = .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
Ask4Folder = .SelectedItems(1)
Err.Clear
On Error GoTo 0
End With
End Function
StartIn
Views 4,526
Downloads 1,447
CodeID
DB ID