2014-11-03 77 views
2

我正在使用的應用程序要求用戶使用msoFileDialogFolderPicker選擇一個文件夾,並且它相當有用地打開最後一個位置中的文件夾選取器。但是,我們的用戶偶爾會更改路徑中的文件夾名稱。這會導致窗口'位置不可用'對話框。這嚇壞了我們的用戶,因爲他們不知道發生了什麼。獲取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 

感謝

回答

1

考慮:

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

就是這樣的感謝!我也必須取出'.InitialFileName =「C:\」'。它仍然默認爲最後一個文件夾,但該變量仍然讀取C:\。奇怪,但固定 – Smittey 2014-11-03 15:46:21

+0

@Smittey我感興趣的是* Object *具有默認屬性。 – 2014-11-03 15:49:24

+0

我認爲這是正確的,但我錯了。這不會在'.show'上產生FolderPicker的路徑。它對我來說可能是獨一無二的,但它顯示的是一個較低的路徑。 – Smittey 2014-11-03 16:59:27