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 |