Flasher
|
 Posted: Sun Oct 27, 2013 19:49 Post subject: |
 |
|
| Code: | '============================================================
' Запуск первой существующей программы из внешнего накопителя
' Параметр: <Путь без имени диска>
' Пример: "\ProgramFolder\Program.exe"
'============================================================
If WScript.Arguments.Count > 0 Then
Path = WScript.Arguments(0)
With CreateObject("Scripting.FileSystemObject")
For Each D In .Drives
If D.DriveType = 1 Then
If .FileExists(D & Path) Then
CreateObject("WScript.Shell").Run """" & D & Path & """"
Exit For
End If
End If
Next
End With
End If |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
