Обработка ошибок VBS Path

Question

В последние несколько месяцев у меня была проблема с этим VBScript, который не работает на 100% на каждом компьютере.Похоже, что некоторые Windows 10 и Windows 7 Ultimate имеют проблему.

Я использовал обходной путь другого 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

Answer 1

Вероятно, существует другая работа ...

Проверьте путь, если не существует, перейдите с другим путем.Смотрите в комментариях.

Dim fso, InPath
Set fso = CreateObject("Scripting.FileSystemObject")

'Get the path
InPath=WshShell.CurrentDirectory +"\DATA" 
exists = fso.FolderExists(InPath)

'Check if not exists, replace with other path
If Not(exists) Then 
   InPath=WshShell.CurrentDirectory +"DATA"