VBS路径错误处理

Question

过去几个月我一直遇到一个问题，因为这个VBScript并没有在每台计算机上100％工作。似乎有些问题出现在Windows 10和Windows 7旗舰版上。

我一直在使用不同VBScript的变通方法而不是\DATA只更改DATA。我一直在尝试使用错误处理来忽略问题并运行其他版本的代码，但即使使用On Error Resume Next或Try Catch Finally语句，我仍然得到无法找到该文件的弹出窗口。 我也尝试过On Error GoTo错误处理。

如何让它尝试路径变化并且不会回复任何错误信息然后转到下一个路径选项？

Set shell = CreateObject("Shell.Application")
Dim WshShell, InPath
Set WshShell = WScript.CreateObject("WScript.Shell")

InPath = WshShell.CurrentDirectory + "\DATA"
'shell.ShellExecute "application", "arguments", "path", "verb", window
shell.ShellExecute "Install.bat", , InPath, "runas", 1
Set shell = Nothing