2

我正在寻找一个 vb 脚本，它检查（在特定路径）文件是否存在并且（仅当它确实存在时）然后打开另一个文件（或文件夹）或运行应用程序。

4

4 回答 4

3 
Set fileSystemObject = CreateObject("Scripting.FileSystemObject")

If fileSystemObject.FileExists(file) Then

    'Do what you need

End If
于 2012-10-01T10:52:37.103 回答
2

这有效：

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
If fileSystemObject.FileExists("ok.txt") Then
  CreateObject("WScript.Shell").Run "nice.txt"
End If

它检查ok.txt文件是否存在（在与 vbs 相同的文件夹中），然后执行该nice.txt文件。

谢谢你的帮助。

于 2012-10-01T16:59:04.710 回答
1

通过这种方式（使用 DOS 路径），脚本可以工作：

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
If fileSystemObject.FileExists("D:\MYSCRE~1\ok.txt") Then
CreateObject("WScript.Shell").Run "D:\MYSCRE~1\nice.txt"
End If
于 2012-10-02T10:42:46.343 回答
1 
Function Main()

Dim fso 

Set fso = CreateObject("Scripting.FileSystemObject")

If Not(fso.FileExists(drive_name:\folder\filename.txt")) Then

       Main = 1/0

End If
于 2014-05-09T04:40:33.670 回答