Discussion :

[loriane45]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mkdir "Vers " & var1

[loriane45]

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

Que dois-je modifier ?

Merci encore

[ThierryAIM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[loriane45]

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

Et encore Merci à vous.

Bonne journée à tous.