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

您必须删除变量类型。顺便说一句，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
Set fso = CreateObject("Scripting.FileSystemObject")
FileThere = fso.FileExists(FileName)
set fso=nothing
End Function
wscript.echo FileThere("c:\boot.ini")