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()来获取“我的文档”，它运行正常（我不需要考虑它）。