用VBS判断C:\123\123.exe是否存在,如果存在就判断C:\234\234.exe是否存在,如果存在就启动C:\234\234.exe,不存在就启动C:\123\123.exe
时间: 2023-08-20 11:07:55 浏览: 84
### 回答1:
可以使用以下代码实现:
```
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 判断 C:\123\123.exe 是否存在
If objFSO.FileExists("C:\123\123.exe") Then
' 判断 C:\234\234.exe 是否存在
If objFSO.FileExists("C:\234\234.exe") Then
' 启动 C:\234\234.exe
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\234\234.exe"
Else
' 启动 C:\123\123.exe
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\123\123.exe"
End If
End If
```
首先创建一个 `FileSystemObject` 对象,然后使用 `FileExists` 方法判断文件是否存在。如果 `C:\123\123.exe` 存在,则继续判断 `C:\234\234.exe` 是否存在。如果存在,则启动 `C:\234\234.exe`;如果不存在,则启动 `C:\123\123.exe`。
### 回答2:
您可以使用以下 VBS 脚本来实现这个需求。
```
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\123\123.exe") Then
If objFSO.FileExists("C:\234\234.exe") Then
' 如果 C:\234\234.exe 存在,则启动该文件
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\234\234.exe"
Else
' 如果 C:\234\234.exe 不存在,则启动 C:\123\123.exe
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\123\123.exe"
End If
Else
' 如果 C:\123\123.exe 不存在,提示文件不存在
MsgBox "C:\123\123.exe 不存在"
End If
```
这段 VBS 脚本首先使用 `FileExists` 方法判断 C:\123\123.exe 是否存在。如果存在,则进一步判断 C:\234\234.exe 是否存在。如果 C:\234\234.exe 存在,则使用 `Run` 方法启动 C:\234\234.exe。如果 C:\234\234.exe 不存在,则使用 `Run` 方法启动 C:\123\123.exe。
如果 C:\123\123.exe 不存在,则会弹出一个消息框提示文件不存在。
通过将以上代码保存为一个文本文件,将文件扩展名改为 ".vbs"(例如:check_files.vbs),然后运行该 VBS 脚本,即可实现所需功能。
### 回答3:
可以使用以下VBS脚本来实现:
```
Set fso = CreateObject("Scripting.FileSystemObject")
' 判断C:\123\123.exe是否存在
If fso.FileExists("C:\123\123.exe") Then
' 判断C:\234\234.exe是否存在
If fso.FileExists("C:\234\234.exe") Then
' 启动C:\234\234.exe
CreateObject("WScript.Shell").Run "C:\234\234.exe"
Else
' 启动C:\123\123.exe
CreateObject("WScript.Shell").Run "C:\123\123.exe"
End If
Else
' C:\123\123.exe不存在,无法启动任何应用程序
MsgBox "C:\123\123.exe不存在"
End If
```
阅读全文
相关推荐
















