检查文件是否存在并且（仅当它存在时）打开另一个文件（或文件夹）或运行应用程序

Question

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

Answer 1

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")

If fileSystemObject.FileExists(file) Then

    'Do what you need

End If

Answer 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文件。

感谢您的帮助。

Answer 3

以这种方式（使用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

Answer 4

Function Main()

Dim fso 

Set fso = CreateObject("Scripting.FileSystemObject")

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

       Main = 1/0

End If