Ask4Folder

Asks user for a folder, starting with certain folder

CodeFunctionName
What is this?

Public

Tested

Original Work
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

StartIn

Views 4,526

Downloads 1,447

CodeID
DB ID

ANmarAmdeen
602
Revisions

v1.0

Sunday
July
29
2018