coherent
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Dim fso, Origin, SourcePath, MyProgPath, SandboxParent, SandboxName, SandboxPath, MyProgSource, MyProgDest, id
Function OnLastProcessExit
Set fso = CreateObject("Scripting.FileSystemObject")
Origin = GetEnvironmentVariable("TS_ORIGIN")
SourcePath = Left(Origin, InStrRev(Origin, "\") - 1)
MyProgPath = ExpandPath("%ProgramFilesDir%\Data")
SandboxParent = GetBuildOption("SandboxPath")
SandboxName = GetBuildOption("SandboxName")
If SandboxParent = "." Then
SandboxPath = SourcePath & Chr(92) & SandboxName
Else
SandboxPath = SandboxParent & Chr(92) & SandboxName
End If
MyProgSource = MyProgPath & "\MyProgram.exe"
MyProgDest = SourcePath & "\MyProgram.exe"
If not fso.FileExists(MyProgDest) then
fso.CopyFile MyProgSource, MyProgDest
End If
id = ExecuteExternalProcess(MyProgDest)
WaitForProcess id, 0
If fso.FileExists(MyProgDest) Then
fso.DeleteFile(MyProgDest)
End if
End Function |
Всего записей: 3881 | Зарегистр. 20-02-2007 | Отправлено: 12:02 04-06-2014 | Исправлено: coherent, 12:22 04-06-2014 |
|
