创建 VBScript 函数时出现问题

发布于 2024-08-06 11:02:13 字数 385 浏览 3 评论 0原文

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

我正在使用以下代码：

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

我收到以下错误：

Expected ')'  
800A03EE  
Microsoft VBScript compilation error

知道出了什么问题吗？我已经用文件中的这三行对其进行了测试，但错误仍然发生。

原文

I'm trying to create a simple VBScript script, in this I need a function that takes a file path and returns true if there is a file there, and false if there's nothing.

I'm using the following code:

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

I get the following error:

Expected ')'  
800A03EE  
Microsoft VBScript compilation error

Any idea what's wrong? I've tested it with just those three lines in the file and the error still occurs.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

岛徒 2024-08-13 11:02:13

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


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

You must remove variable types. BTW, Dir() function isn't available so you must go with following code:


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

回复收藏 0 原文

剩一世无双 2024-08-13 11:02:13

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

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

VBScript only has the variant type, you can't specify types explicitly.

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

回复收藏 0 原文

踏雪无痕 2024-08-13 11:02:13

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")

there are no types as such in vbs
Dir function does not exist.

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")

回复收藏 0 原文

~没有更多了~