A voir également:
- VBS
- Vbs windows - Guide
- .Vbs virus ✓ - Forum Virus
- Vbs runauto - Forum Virus
- Vbs edit - Télécharger - Édition & Programmation
- Vbs pause ✓ - Forum VB / VBA
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
pour plus d'info voir: titoriel VBS VB script
http://toptech.geekaddict.net/t97-titoriel-pour-vbs-vb-script#104
Utilisateur anonyme
Modifié par Lupin.PC4 le 27/04/2011 à 21:11
Modifié par Lupin.PC4 le 27/04/2011 à 21:11
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 :
n.b. L'instruction Dir n'est valide que sous VBA ou VB,
mais il n'est pas reconnu sous VBS.
Cdt
Lupin
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
27 avril 2011 à 19:07