Получение исходного пути msoFileDialogFolderPicker

Question

Приложение, в котором я работаю, требует от пользователей выбора папки с помощью msoFileDialogFolderPicker, и это довольно полезно открывает папку выбора папок в последнем месте. Однако наши пользователи иногда меняют имя папки в пути. Это вызывает диалоговое окно «Расположение недоступно». Это пугает наших пользователей, поскольку они не знают, что происходит.

Мой вопрос в том, как узнать, каким будет исходное местоположение папки? Я могу тогда заманить в ловушку, потому что вместо этого он просто установил его по умолчанию.

Мой код очень просто

GetFolder As String 
Set folder = Application.FileDialog(msoFileDialogFolderPicker) 

With folder 
    .Title = "Please Select a Folder" 
    .InitialFileName = "C:\" 
    .AllowMultiSelect = False 

    If .Show <> -1 Then Goto EndSub 
    GetFolder = .SelectedItems(1) 
End With 

Благодаря

Answer 1

Рассмотрим:

Sub qwerty() 
    Dim fldr As FileDialog 
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 
    MsgBox fldr.InitialFileName 
End Sub