Проблема с созданием функции VBScript

Question

Я пытаюсь создать простой сценарий VBScript, в этом мне нужна функция, которая принимает путь к файлу и возвращает true, если файл там, и false, если ничего нет.

Я использую следующий код:

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

Я получаю следующую ошибку:

Expected ')'  
800A03EE  
Microsoft VBScript compilation error

Есть идеи, что случилось? Я проверил это только с этими тремя строками в файле, и ошибка все еще происходит.

Answer 1

Вы должны удалить типы переменных. Кстати, функция Dir () недоступна, поэтому вы должны использовать следующий код:

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

Answer 2

1. в vbs нет типов как таковых

2. Функция Dir не существует.

   Функция FileThere (FileName)

   Dim FSO

   Set fso = CreateObject ("Scripting.FileSystemObject")

   FileThere = fso.FileExists (FileName)

   set fso = none

   Функция завершения

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

Answer 3

VBScript имеет только тип варианта, вы не можете явно указывать типы.

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