Bonjour,

Voila, je souhaiterais énumérer la liste des sous-répertoires d'un dossier en n'utilisant pas la boucle For Each.

C'est à dire, en d'autres termes, je souhaiterais avoir les noms de tous les sous-répertoires d'un dossier donné sur mon disque dur, en utilisant le boucle while.

Est-ce que ce serait possible?

Voici la syntaxe que j'ai employé, mais ca ne fonctionne pas.

Cette syntaxe est utilisée dans un autre langage de script qui intègre les objets du VBS mais qui malheureusement, ne comporte pas de boucle For Each.

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
17
var
object o,
object oDossier,
string sPath,
string sDossier,
int i,
int iMax
 
let o = CreateObject("Scripting.FileSystemObject")
let sPath = "C:\\Nom du sous-répertoire"
let oDossier = o.GetFolder(sPath).SubFolders
let iMax = oDossier.count
 
While i < iMax
let sDossier = oDossier(i).name
SayString (sDossier + ",")
EndWhile