VB.net保存文件對話框錯誤 - 無法找到特殊目錄'桌面'

Question

我有一個相當直接的代碼嘗試將標準.net保存對話框的默認保存目錄設置爲特定文件夾。如果該文件夾不存在，則將其設置爲桌面。

這工作得很好適合所有人，但一個用戶是誰得到以下錯誤：

Could not find special directory 'Desktop' 

這怎麼可能呢？

 'Check if folder exists 
     If Not IO.Directory.Exists(strDirectory) Then 
      strDirectory = FileIO.SpecialDirectories.Desktop 
      If Not IO.Directory.Exists(strDirectory) Then 
       strDirectory = IO.Directory.GetCurrentDirectory 
      End If 
     End If 


    'Show save file dialogue. 
    Dim folderDlg As New Windows.Forms.FolderBrowserDialog 
    folderDlg.RootFolder = Environment.SpecialFolder.Desktop 
    folderDlg.SelectedPath = strDirectory 
    folderDlg.ShowNewFolderButton = True 

Answer 1

如何：

strDirectory = _ 
    Environment.GetFolderPath(Environment.SpecialFolder.Desktop).ToString() 

我用GetFolderPath()獲得「我的文檔」，它工作正常（我從來沒有去想它）。