Discussion :

[cubepiege]

Bonjour je souhaite réaliser une action en vbs suivant un 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
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

[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

[cubepiege]

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

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