VBS
jesuismoi
-
jesuismoi -
jesuismoi -
Bonjour,
Quelqu' un peut m expliquer ceci ?
que signifie dir& ?
if WScript.ScriptFullName=dir&"\test.txt" then
Quelqu' un peut m expliquer ceci ?
que signifie dir& ?
if WScript.ScriptFullName=dir&"\test.txt" then
2 réponses
-
==> si le fichier indiqué existe alors
pour plus d'info voir: titoriel VBS VB script
http://toptech.geekaddict.net/t97-titoriel-pour-vbs-vb-script#104 -
Bonjour,
if WScript.ScriptFullName=dir&"\test.txt" then
dir&"\test.txt" ???
il faut lire :
dir & "\test.txt"
mais cette syntaxe n'a pas de sens.
Il faudrait plustôt écrire comme suit :
Dim LeFichier, MonFichier LeFichier = WScript.ScriptFullName MonFichier = Left(LeFichier, InStrRev(LeFichier, "\")) MonFichier = MonFichier & "Test.txt" If (FichierExistant(MonFichier)) Then WScript.Echo "Fichier existant." Else WScript.Echo "Fichier n'existe pas." End If Wscript.Quit(0) Function FichierExistant(NomFichier) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") FichierExistant = fso.FileExists(NomFichier) Set fso = Nothing End Function '
n.b. L'instruction Dir n'est valide que sous VBA ou VB,
mais il n'est pas reconnu sous VBS.
Cdt
Lupin
