创建 VBScript 函数时出现问题答案

【问题标题】：Problem creating a VBScript function创建 VBScript 函数时出现问题
【发布时间】：2010-12-04 15:26:09
【问题描述】：

我正在尝试创建一个简单的 VBScript 脚本，在此我需要一个函数，该函数接受文件路径，如果那里有文件则返回 true，如果没有则返回 false。

我正在使用以下代码：

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

我收到以下错误：

Expected ')'  
800A03EE  
Microsoft VBScript compilation error

知道有什么问题吗？我只用文件中的那三行对其进行了测试，但错误仍然存在。

【问题讨论】：

标签： vbscript syntax-error

【解决方案1】：

您必须删除变量类型。顺便说一句，Dir() 函数不可用，因此您必须使用以下代码：


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

【讨论】：

【解决方案2】：

VBScript 只有变体类型，不能显式指定类型。

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

【讨论】：

【解决方案3】：

vbs 中没有这样的类型
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")

【讨论】：