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