Ошибка диалогового окна сохранения файла 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()

я использую ПолучитьПутьПапки() чтобы получить «Мои документы», и все работает нормально (мне даже не приходится об этом думать).