Discussion :

[abdel792]

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

[Overcrash]

Bonsoir,

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

Exemple :

Code :

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

1
2
3
While (i<10)
     'Code
Wend

[l_autodidacte]

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 :

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

[abdel792]

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 :

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

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.

[Overcrash]

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

Tu as la For :

Code :

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

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

Et la Do while :

Code :

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

1
2
3
Do While i < 10
     'code
loop

[l_autodidacte]

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 :

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

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

[abdel792]

Bonsoir,


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

Code :

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

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

[ProgElecT]

Salut

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

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 :

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

1
2
3
While condition
   ..........
Wend

[abdel792]

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 :

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

[ProgElecT]

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