Boucle While en VBScript

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:

---

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

---

Bonsoir,

Il me semble que "la fin" du While soit "Wend" et non pas "EndWhile".
Test et dit moi.

Exemple :

Code:

---

1 2 3

While (i<10) 'Code Wend

---

On peut avoir avec l'objet Shell.Application(car FSO ne gère pas les indices si mes connaissances ne sont pas désuètes):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Dim SH , cnt, I, SS Private Function EnumSubFolders() dim myPath,sPath myPath="C:\Program Files" I = 0 Set SH=CreateObject("Shell.Application") set sPath = SH.NameSpace(myPath) cnt = SH.NameSpace(myPath).Items.Count While I < cnt If sPath.Items.Item(I).IsFolder Then ss=ss & sPath.Items.Item(I).Name & vbnewline End If I = I + 1 Wend EnumSubFolders=SS End Function   MsgBox EnumSubFolders

---

Merci à vous deux,

En fait, dans le langage script que j'utilise, la boucle While ne s'incrémente pas par une instruction Wend, mais par une incrémentation du compteur.

Code:

---

let i = i + 1

---

Il est vrai que je l'ai oublié dans mon code.

Mais ce n'est pas cela qui pose problème, c'est surtout le fait que les éléments de la collection retournée par la propriété SubFolders du VBScript, lorsqu'on essaie de les lister avec une boucle While, eh bien, je ne sais pas ce qu'il faut mettre devant la propriété Name pour que chaque nom de chaque sous-dossier soit bien lu.

Avec la boucle For Each, qui n'est pas intégrée dans le programme que j'utilise, on a pas besoin de citer l'index de l'élément, mais dans cette boucle While dont je vous parle, hé bien, l'index est requis pour que le nom soit bien reconnu.

Comment doit je procéder pour que le nom soit bien cité à chaque bouclage?

Vous pouvez me citer des exemples avec une autre boucle While que vous connaîssez, j'essaierai de la modifier en fonction du programme que j'utilise.

Je vous remercie d'avance pour votre aide.

Autre boucle While ?
Tu veux dire une autre syntaxe de boucle ?

Tu as la For :

Code:

---

1 2 3

For i = 0 to 100 step 1 'code next i

---

Et la Do while :

Code:

---

1 2 3

Do While i < 10 'code loop

---

Par bouclage tu veux dire itération ?(car pour moi bouclage = fermeture)
Un autre exemple d'utilisation de la boucle While ......WEnd en espérant répondre correctement à ta question:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   dim tb(30),I,Ret i=0 Ret="" While i<30 tb(i)=cstr(30-i) Ret=Ret & tb(i) & VbNewLine ' Juste pour l'affichage i=i+1 Wend MsgBox Ret

---

Bonsoir,


En fait, la syntaxe de la boucle while que j'utilise est comme suit :

Code:

---

1 2 3 4

While i < iMax 'Traitement à réaliser let i = i + 1 EndWhile

---

Salut

Citation:

---

Envoyé par en googleant

Syntaxe while .... endwhile <---- en PHP anciennne version, en PHP 3.0, vous obtiendrez une boucle sans fin !

---

Citation:

---

Guide de l'utilisateur VBScript Visual Basic Scripting Edition
© 2001 Microsoft Corporation. Tous droits réservés.
Build: Version du sujet 5.6.9309.1546

Code:

---

1 2 3

While condition .......... Wend

---

---

Bonjour tout le monde,

Voilà, je vous remercie tous pour votre aide et m'excuse auprès de la modération pour avoir oublié les tags autour du code dans mon premier post.

Juste pour vous dire que le problème est désormais résolu, grâce à l'explication de Moncef, qui fonctionne très bien avec la boucle While employé dans le programme que j'utilise.

En fait, apparemment, comme tu me l'as bien expliqué Moncef, il semblerait que l'objet "FileSystemObject" et la méthode "GetFolder ()" ne gèrent pas les indices, chose qui est indispensable pour le listage des éléments d'une collection avec une boucle While.

Avec l'objet "Shell.Application" et la méthode "NameSpace ()", le problème ne se pose plus.

Le langage que j'utilise est un langage de script peu connu, il s'appelle le langage script JAWS.

Et maintenant, vous voici le code qui fonctionne très bien désormais, en vous renouvelant mes remerciements.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var string myPath, string sPath, string sDossier, object oPath, object oSH, object oDossier, int i, int iMax let myPath="c:\\Mon dossier" let oSH=CreateObject("Shell.Application") let oPath = oSH.NameSpace(myPath) let iMax = oPath.items.count let i = 0 While i < iMax If oPath.items.item(i).IsFolder Then let sPath = oPath.items.item(i).name let sDossier=sDossier + sPath + "," EndIf let i = i + 1 EndWhile SayString (sDossier)

---

Citation:

---

Envoyé par abdel792

Bonjour tout le monde,

Voilà, je vous remercie tous.......
Le langage que j'utilise est un langage de script peu connu, il s'appelle le langage script JAWS.
.....

---

Ayant créée la discussion sur le forum VBScript, il y avait de quoi être désorienté, d'où des réponses non adaptées.
Penser au bouton :resolu: