VB.net Enregistrer erreur de dialogue Fichier - Impossible de trouver le répertoire spécial « bureau »

Question

J'ai un peice assez simple de code qui essaie juste de définir le répertoire par défaut sauvegardé pour une norme .net sauver le dialogue dans un dossier spécifique. Si ce dossier n'existe pas, il le met sur le bureau.

Cela fonctionne bien pour tout le monde, mais un utilisateur qui reçoit l'erreur suivante:

Could not find special directory 'Desktop'

Comment est-ce possible?

        '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

Que diriez-vous:

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

J'utilise GetFolderPath () pour obtenir « Mes documents » et il fonctionne très bien (je n'ai jamais à y penser).