Création de dossier.

Bonjour je suis débutant

Je voudrait crée des dossiers suivant un fichier texte

Par exemple dans mon fichier texte j'ai :

Pierre
Paul
Lucie
Marine
ELodie
....

Et je voudrait crée 2 dossiers pour chaque personnes présente dans le fichier texte

1er dossier : Vers Pierre 2ème Dossier : De Pierre

J'ai déja crée ce script mais en DOS mais le soucis c'est que le dos ne me permet pas de géré la sécurité NTFS donc je me suis lancer dans le VBS que je découvre.

Voila mon début de vbs quelqu"un peut m'aider j'essaye d'apprendre mais la je sais pas comment utiliser ma variable et mettre sa dans le bonne ordre.

Voici le peut que j'ai réussie a faire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim var1 as string open "c:\Mon-fichier-texte" for input as #1 input #1,var1 Do While var1 <> "" <== tant que var1 est différente de rien   'je crée le dossier sur mon bureau Chdir c:\mon-bureau Mkdir "Vers & var1 " <= comment on dit d'utiliser la variable ? Chdir c:\mon-bureau Mkdir "De & var1" Loop   close #1

---

Voila Merci beaucoup.
Bonne journée.

Code:

---

Mkdir "Vers " & var1

---

Le soucis c'est que mon script marche toujours pas.

Que dois-je modifier ?

Merci encore :king:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set WshShell = WScript.CreateObject("WScript.Shell") MonBureau = WshShell.SpecialFolders("Desktop")   Const ForReading = 1, ForWriting = 2 Dim oFso, f   Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\fich1.txt", ForReading) while Not f.AtEndOfStream var1 = f.ReadLine Set oFld=oFSO.CreateFolder (MonBureau & "\Vers " & var1) Set oFld=oFSO.CreateFolder (MonBureau & "\De " & var1) Wend f.Close Set oFso = Nothing

---

Ok lol Merci beaucoup à vous et au forum VB

Comme je débute tu me conseil quoi pour apprendre ?

Des livres ? Forum ? ...

Merci beaucoup de ton aide :D

Et encore Merci à vous.

Bonne journée à tous.