Discussion :

[Marion33]

Bonjour,

Je suis nouvelle sur le forum et nouvelle dans le VBS. J'essaie donc d'apprendre les bases et je m'inspire beaucoup du forum pour répondre à mes questions mais là je suis bloqué.

Je vous montre le script et j'explique mon problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fso, fileWriter
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileWriter = fso.createTextFile('chemin')
 
Sub ListDirectory(objFolder)
  For Each objFile In  objFolder.Files
    fileWriter.WriteLine objFile.name
	'------ Mon action -----
  Next
End Sub
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objMyFolder = objFso.GetFolder ('------ chemin, à changer une fois que Mon action est terminée -----')
ListDirectory objMyFolder

'Mon action' (qui est simplement écrire dans un fichier texte) travaille dans le dossier, dont le chemin est définit par Set objMyFolder, mais une fois qu'elle est terminée je souhaite qu'elle recommence à partir d'un autre dossier (Pas les sous dossiers mais bien un chemin différent). Quel code écrire pour que ce chemin se modifie automatiquement à la fin de 'l'action' pour recommencer à partir de ce nouveau dossier ?

Merci de votre aide, étant débutant cela me parait difficile...

[Cachlab]

Bonjour Marion33,

J'espère avoir compris ton besoin ...
Voici la solution que je te propose :

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
16
Dim fso, fileWriter
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileWriter = fso.createTextFile("fichier.log")
 
Lst_Folders = "chemin1;chemin2" ';chemin3;chemin4;chemin5 ...
Name_Folders = Split(Lst_Folders,";")
 
For i = 0 to ubound(Name_Folders)
Set objMyFolder = fso.GetFolder(Name_Folders(i))
 
	For Each objFile In objMyFolder.Files
	fileWriter.WriteLine objFile.name
	'ton action
	Next
 
Next

++

[ericlm128]

En voici une autre. Attention il n'y a pas de vérification d'erreur (chemin introuvable ...)

Code vbscript :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFileWriter = objFso.CreateTextFile("CheminFichier")
 
Sub ListDirectory(FolderPath)
  For Each objFile In objFso.GetFolder(FolderPath).Files
    objFileWriter.WriteLine objFile.name
  Next
End Sub
 
ListDirectory "CheminDossier 1"
ListDirectory "CheminDossier 2"
 
objFileWriter.Close

[Marion33]

Merci beaucoup, cela fonctionne à merveille !
Bonne soirée