Problème de création d'une fonction VBScript

Question

J'essaie de créer un simple VBScript script, dans ce j'ai besoin d'une fonction qui prend un chemin de fichier et retourne vrai s'il y a un fichier là, et faux s'il n'y a rien.

J'utilise le code suivant :

Function FileThere (FileName As String) As Boolean
FileThere = (Dir(FileName) > "")
End Function

Je reçois l'erreur suivante :

Expected ')'  
800A03EE  
Microsoft VBScript compilation error

Une idée de ce qui ne va pas ? Je l'ai testé avec seulement ces trois lignes dans le fichier et l'erreur se produit toujours.

Answer 1

VBScript ne dispose que du type variante, vous ne pouvez pas spécifier les types explicitement.

Function FileThere(FileName)
    FileThere = (Dir(FileName) > "")
End Function

Answer 2

Vous devez supprimer les types de variables. BTW, la fonction Dir() n'est pas disponible, vous devez donc utiliser le code suivant :

Function FileThere (FileName) 
    Set fso = CreateObject("Scripting.FileSystemObject")
    FileThere = fso.FileExists(FileName)
    Set fso = Nothing
End Function

Answer 3

1. il n'y a pas de types en tant que tels dans les vbs

2. La fonction Dir n'existe pas.

   Fonction FileThere(FileName)

   Dim fso

   Set fso = CreateObject("Scripting.FileSystemObject")

   FichierExistant = fso.FileExists(FileName)

   set fso=nothing

   Fin de la fonction

   wscript.echo FileThere("c : \boot.ini ")