Créer un dossier sur le bureau

Question

Je veux créer un dossier sur le bureau et je veux le créer une fois. Cependant, une fois que mon projet est installé, quand je déboguer mon programme, je reçois cette erreur:

Conversion from string to " gfgffgfgfg " type integer is not valid

Voici mon code:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click 

    Try 
     MkDir(My.Computer.FileSystem.SpecialDirectories.Desktop("gfgffgfgfg")) 

    Catch ex As Exception 
     MsgBox(ex.Message.ToString) 
    End Try 

Answer 1

Je ne sais pas ce qui passe la chaîne à Desktop est destiné à faire, et j'attendre à d'autres formes d'erreurs de compilation (bien que je ne connais pas le compilateur VB très bien), mais peut-être que vous voulez ceci:

Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "gfgffgfgfg") 

qui devrait renvoyer le pa pleinement qualifié pour le dossier en cours de création.

Answer 2

Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\SELEXPED" 

    If Directory.Exists(SELEXPED_DIR) = False Then 
     Try 
      Directory.CreateDirectory(SELEXPED_DIR) 

     Catch ex As Exception 
      'Nothing to do 
     End Try 
    End If