Selecting A System Folder

This function will allow the user to select a system.

Dim fd As FileDialog
Dim returnvalue as string
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd
.Title = “Please Select the Folder Location”
.InitialFileName = Application.Path
If .Show = -1 Then
‘ Location Selected.
returnvalue = .SelectedItems(1)
End If
End With

Set fd = Nothing