Discussion :

[sovan]

Bonjour

J'ai du mal avec des variables !!
Quand je n'utilise pas les variables ça fonction !!!
Pouvez vous me corrigé mon scripte ?

Code :

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

1
2
3
4
5
6
Dim lien, logi
lien = "\\FREEBOX\Disque dur\Aplications\"		
logi = lienserv & "\Bat.cmd"
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run  """logi""" , 1, true
Set oWSHell = Nothing

Sans Variable ça fonction

Code :

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

1
2
3
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """\\FREEBOX\Disque dur\Aplications\Bat.cmd""", 1, true
Set oWSHell = Nothing

Merci d'avance
Bonne soirée

[SfJ5Rpw8]

Bonjour,

Pour utiliser le contenu de ta variable et pas son nom il faurt sortir ta variable des guillemets

Les couleurs du code dans ce forum devrais t'aider les variables devraient être en noir et pas en rouge...

Code :

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

1
2
 
oWShell.Run """" & logi & """" , 1, true

Attention aussi a ne pas changer de nom de variable, lien.. lienserv..

[sovan]

Ah ok merci !
je vais changer seulement le fichier cmd

[hackoofr]

Prenez l'habitude de debuger vos scripts en ajoutant des MsgBox ou bien des Wscript.Echo pour suivre l'évolution de vos scripts et afficher le contenu de vos variables.
Je vous conseille aussi d'utiliser une petite fonction simple et efficace dans tous vos scripts VBS pour ajouter facilement les doubles quotes dans une variable, car elle va sûrement vous simplifier la vie

Code :

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

1
2
3
4
5
6
'**********************************************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************

et votre script devient alors très facile à debuger comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim lienserv,logi
lienserv = "\\FREEBOX\Disque dur\Aplications"        
logi = lienserv & "\Bat.cmd"
Set oWShell = CreateObject("Wscript.Shell")
MsgBox logi,16,"Sans les doubles Quotes"
MsgBox DblQuote(logi),64,"Avec les doubles Quotes"
'**********************************************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************