Автор: Skif_off
Дата сообщения: 10.02.2015 17:20
Nick3230
[more=Попробуйте так]
Код: Dim AddToFileList, AddList, RetCodeP, RetCodeR
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileList = FSO.OpenTextFile(WScript.Arguments(0), 1, False, -1)
AddToFileList = FileList.ReadAll
FileList.Close
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Multiline = True
objRegExp.Pattern = "\\$"
AddList = objRegExp.Replace(AddToFileList, "")
If FSO.FileExists(WScript.Arguments(1))
Set AddTo = FSO.OpenTextFile(WScript.Arguments(1), 8, False, -1)
AddTo.Write(AddList)
AddTo.Close
Else
Set AddTo = FSO.OpenTextFile(WScript.Arguments(1), 2, True, -1)
AddTo.Write(AddList)
AddTo.Close
End If
RetCodeP = WshShell.Popup "Упаковать?", , "Бэкап по списку", 4+32
If (RetCodeP = 6) Then
If FSO.FileExists(WScript.Arguments(1)) Then
WshShell.Popup "Файл _backup.rar уже существует!", , "Бэкап по списку", 0+48
Else
RetCodeR = WshShell.Run(Chr(34) & "%COMMANDER_PATH%\Utils\Rar.exe" & Chr(34) & " a -r -ep1 " & Chr(34) & WScript.Arguments(1) & "_backup.rar" & Chr(34) & " " & Chr(64) & WScript.Arguments(0) & Chr(34), 0, True)
WshShell.Popup "Создание резервной копии завершено.", , "Бэкап по списку", 0+64
End If
End If
WScript.Quit