创建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

VBScript只有变体类型，你不能明确指定类型。

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

Answer 2

您必须删除变量类型。 BTW，Dir（）函数不可用，因此您必须使用以下代码：

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

Answer 3

1. vbs中没有类型

2. Dir功能不存在。

   Function FileThere（FileName）

   Dim fso

   设置fso = CreateObject（“Scripting.FileSystemObject”）

   FileThere = fso.FileExists（FileName）

   设置fso =无

   结束功能

   wscript.echo FileThere（“c：\ boot.ini”）