Changement de variable

Version imprimable

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:

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... :)

Bonjour Marion33,

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

Code:

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

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

Code:

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

02/05/2017, 19h53
Marion33

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