VB.net Enregistrer fichier Dialogue erreur - Impossible de trouver le répertoire spécial 'Bureau'

Question

J'ai un code de ligne assez simple qui essaie simplement de définir le répertoire enregistré par défaut pour un dialogue standard .net save dans un dossier spécifique. Si ce dossier n'existe pas, il le définit sur le bureau.

Cela fonctionne bien pour tout le monde, mais un utilisateur qui obtient 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).