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

Fermé
Rayan - 9 mai 2018 à 20:13
 Rayan - 9 mai 2018 à 21:41
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

robmat2005 Messages postés 28 Date d'inscription mercredi 9 mai 2018 Statut Membre Dernière intervention 7 juin 2018 44
9 mai 2018 à 20:27
Tu code en quel language ? Quel logiciel utilise tu pour le lancer ?
0
Je code en Visual Basic donc en VB.NET mais ça se vois avec le code non ?
0
robmat2005 Messages postés 28 Date d'inscription mercredi 9 mai 2018 Statut Membre Dernière intervention 7 juin 2018 44
9 mai 2018 à 20:42
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
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
9 mai 2018 à 20:50
Pour le bureau : My.Computer.FileSystem.SpecialDirectories.Desktop
A toi de faire le reste.
0
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
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
9 mai 2018 à 20:52
0
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
J'ai trouvé j'ai pu faire un fichier .rar pour chaque mods téléchargés.
Merci quand même
0