Discussion :

[Edoxituz]

Bonjour, j’ai besoin de créer un script SVB pour Windows XP pour agir sur un fichier.txt, se VBS sera conçu en deux parties, une première code qui récupère le chemin d’un fichier glisser déposer sur le VBS:

Code :

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

1
2
3
4
Set objArgs = WScript.Arguments 
For I = 0 to objArgs.Count - 1 
   WScript.Echo objArgs(I) 
Next

Puis une deuxième qui ouvre une boite de dialogue pour aller sélectionner un fichier:

Code :

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

1
2
3
4
Set oUA = CreateObject("UserAccounts.CommonDialog") 
x = oUA.ShowOpen 
Set VarTest = (oUA.FileName) 
Wscript.echo VarTest

Voila donc se que je veut faire avec sa s’est en ajoutant une condition If si un fichier et glisser déposer sur le VBS s’est la première parties du code qui sera exécuter, et si aucun fichier n’est glisser déposer sur la VBS s’est la deuxième parties du code qui sera exécuter.
Quelqu’un saurait-il m’aider ?

[SfJ5Rpw8]

teste la propriétée count :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set objArgs = WScript.Arguments 
If objArgs.Count  > 0 Then
 For I = 0 to objArgs.Count - 1
   WScript.Echo objArgs(I)
 Next
Else
 Set oUA = CreateObject("UserAccounts.CommonDialog") 
 x = oUA.ShowOpen 
 Set VarTest = (oUA.FileName) 
 Wscript.echo VarTest
End if

[Edoxituz]

Bonjour Bbil et merci beaucoup s'est parfait