Dim iWshShell
Set iWshShell = CreateObject("WScript.Shell")
iWshShell.Run "Calc.exe" '"C:\Windows\Calc.exe"
Запуск других программ
Как создать скрипт (*.vbs) для запуска любой программы?
А точнее с помощью какой команды можно запускать другие программы.
Имеется ввиду что путь к *.exe можно корректировать по необходимости.:confused:
А точнее с помощью какой команды можно запускать другие программы.
Имеется ввиду что путь к *.exe можно корректировать по необходимости.:confused:
Код:
Если же полное имя файла может содержать пробелы или файл может вовсе отсутствовать, то :
Код:
Dim iWshShell, iFSO, iFileExe
Set iWshShell = CreateObject("WScript.Shell")
Set iFSO = CreateObject("Scripting.FileSystemObject")
iFileExe = "C:\Мои документы\CardAccStatment.exe"
If iFSO.FileExists(iFileExe) = True Then
If InStr(iFileExe, " ") > 0 Then iFileExe = """" & iFileExe & """"
'If InStr(iFileExe, Chr(32)) > 0 Then iFileExe = Chr(34) & iFileExe & Chr(34)
iWshShell.Run iFileExe
Else
iWshShell.Popup "Exe'шник изволит отсутствовать", 3
'MsgBox "Exe'шник изволит отсутствовать"
End If
Set iWshShell = CreateObject("WScript.Shell")
Set iFSO = CreateObject("Scripting.FileSystemObject")
iFileExe = "C:\Мои документы\CardAccStatment.exe"
If iFSO.FileExists(iFileExe) = True Then
If InStr(iFileExe, " ") > 0 Then iFileExe = """" & iFileExe & """"
'If InStr(iFileExe, Chr(32)) > 0 Then iFileExe = Chr(34) & iFileExe & Chr(34)
iWshShell.Run iFileExe
Else
iWshShell.Popup "Exe'шник изволит отсутствовать", 3
'MsgBox "Exe'шник изволит отсутствовать"
End If
Огромное спасибо!!!