yu2n

Dim wso, fso, s1, s2, s3

Set wso = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

s1 = "\\192.168.30.222\run$\tool\computerexe.bat"
s2 = "C:\Program Files\Hintsoft\PubwinClient\update.exe"
s3= "C:\Program Files (x86)\Hintsoft\PubwinClient\update.exe"

If fso.FileExists(s1) Then
	wso.Run s1
ElseIf fso.FileExists(s2) Then
	wso.Run s2
ElseIf fso.FileExists(s3) Then
	wso.Run s3	
End If

Msgbox "Done!", vbInformation, WScript.ScriptName
复制代码

yu2n

回复 9# qq3475534

Dim wso, fso, s1, s2, s3

Set wso = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

s1 = "\\192.168.30.222\run$\tool\computerexe.bat"
s2 = "C:\Program Files\Hintsoft\PubwinClient\update.exe"
s3= "C:\Program Files (x86)\Hintsoft\PubwinClient\update.exe"

If fso.FileExists(s1) Then
	wso.Run """" & s1 & """"
ElseIf fso.FileExists(s2) Then
	wso.Run """" & s2 & """"
ElseIf fso.FileExists(s3) Then
	wso.Run """" & s3 & """"	
End If

Msgbox "Done!", vbInformation, WScript.ScriptName
复制代码