Problème for each + liste statique

Version imprimable

Bonjour je souhaite réaliser une action en vbs suivant un for each:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim Wshell
Dim OFSo
Dim Client
Dim Name
Dim RepClients
 
Set Wshell = Createobject("Wscript.Shell")
Set OFSo = CreateObject("Scripting.FileSystemObject")
 
RepClients = "D:\test"
Client = "toto tata titi"
 
'On execute un batch sur la liste de clients définie dans (Client)
 If oFSO.FolderExists(RepClients) Then
  For each Name in Client
  MsgBox Name
  Next
 End If

Mais ça ne fonctionne pas.
Pouvez vous m'aider à corriger la syntaxe svp ?
Merci

18/02/2009, 12h13
omen999

bonjour,
client n'est ni une collection ni un tableau, donc la boucle ne peut pas fonctionner
commence par regarder la fonction split dans le fichier d'aide pour transformer ta chaine en tableau

Merci beaucoup, grâce à "split", c'est résolu:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim Wshell
Dim OFSo
Dim RepClients, Client, Liste, Name
 
Set Wshell = Createobject("Wscript.Shell")
Set OFSo = CreateObject("Scripting.FileSystemObject")
 
RepClients = "D:\test"
Client = "toto tata titi"
List = split(Client)
 
'On execute un batch sur la liste de clients définie dans (Client)
 If oFSO.FolderExists(RepClients) Then
 For each Name in List
  MsgBox Name
  Next
 End If