Dim R, TC, P, N
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
TC = WshShell.ExpandEnvironmentStrings("%COMMANDER_PATH%")
N = FSO.GetBaseName(WScript.Arguments.Item(0))
P = FSO.GetParentFolderName(WScript.Arguments.Item(0))
R = WshShell.Run("""" & TC & "\Plugins\arc\Rar.exe"" a -ma -ep1 -r -rr9 -ppass -z""" & TC & "\Plugins\arc\rarSFXComm.txt"" -sfx""" & TC & "\Plugins\arc\DefaultEn64.SFX"" """ & P & "\" & N & ".exe"" """ & WScript.Arguments.Item(0) & """", 0, True)
If R > 0 Then
MsgBox "Упаковка не удалась!" & VbCrLf & "Код завершения: " & R
Else
MsgBox "Готово!" & VbCrLf & "Файл """ & N & ".exe"""
End If
|
