VB.net Salvar erro Diálogo File - Não foi possível encontrar diretório especial 'desktop'

Question

Eu tenho um pedaço bastante para a frente de código que apenas tenta definir o diretório padrão salvo para um .net padrão salvar diálogo para uma pasta específica. Se essa pasta não existir, ele define-lo para o ambiente de trabalho.

Esta multa funciona para todos, mas um usuário que está recebendo o seguinte erro:

Could not find special directory 'Desktop'

Como é que é possível?

        '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

Como sobre: ??

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

Eu uso GetFolderPath () para get "Meus documentos" e ele funciona muito bem (eu não nunca ter que pensar sobre isso).