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