{VB}Créer un dossier sur le bureau automatiquement

Rayan -  
 Rayan -
Bonjour,
Je code un logiciel en VB, et j'aimerais qu'il puisse créer un dossier avec un nom défini (dans le code) dans le bureau.
Pour l'instant, je possède ce code qui créer le dossier dans le chemin du projet VB

Dim DossierComptes As String = Application.StartupPath & "/test"
If Not Directory.Exists(DossierComptes) Then
Directory.CreateDirectory(DossierComptes)
End If
My.Computer.FileSystem.WriteAllBytes("C:\Users\XXX\Documents\Visual Studio 2010\Projects\Minerger\bin\Debug\Test/Morph1.12.2.jar", My.Resources.Morph_1_12_2, False)

Voila merci



A voir également:

4 réponses

Réponse 1 / 4
robmat2005 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   44
 
Tu code en quel language ? Quel logiciel utilise tu pour le lancer ?
0
Rayan
 
Je code en Visual Basic donc en VB.NET mais ça se vois avec le code non ?
0
robmat2005 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   44
 
c'est un langage qui ressemble au java donc j'avait un doute mais désoler de ne pas pouvoir t'aider car je ne connait pas se langage, mais essaye comme même dans ton code de retourner dans tes dossier source
0
Réponse 2 / 4
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Pour le bureau : My.Computer.FileSystem.SpecialDirectories.Desktop
A toi de faire le reste.
0
Rayan
 
Oui merci mais le code est pas complet car je voudrais le code qui permet de créer un fichier dans le bureau, se code me permet juste de le mettre dans le bureau pas de le créer
0
Réponse 3 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci qui fonctionne très bien:

https://codes-sources.commentcamarche.net/source/61710-creer-un-dossier-sur-le-bureau

0
Réponse 4 / 4
Rayan
 
J'ai trouvé ce code 
Dim DossierComptes As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "/Minerger123"
        If Not Directory.Exists(DossierComptes) Then
            Directory.CreateDirectory(DossierComptes)
        End If
        My.Computer.FileSystem.WriteAllBytes("/Minerger123" & "Morph1.12.jar", My.Resources.Morph_1_12_2, True)


Qui permet de créer un dossier mais qui permet pas de mettre le fichier téléchargé dans le dossier
0
Rayan
 
J'ai trouvé j'ai pu faire un fichier .rar pour chaque mods téléchargés.
Merci quand même
0