Skif_off
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сохранить как BackupSelection.vbs:
Код: Dim OldList, NewList, RetCode
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Old = FSO.OpenTextFile(WScript.Arguments(0), 1, False, -1)
OldList = Old.ReadAll
Old.Close
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Multiline = True
objRegExp.Pattern = "\\$"
NewList = objRegExp.Replace(OldList, "")
Set NewFileList = FSO.OpenTextFile(WScript.Arguments(0), 2, False, -1)
NewFileList.Write(NewList)
NewFileList.Close
If FSO.FileExists(WScript.Arguments(1) & "_backup.rar") Then
WshShell.Popup "Файл _backup.rar уже существует!", , "Бэкап по списку", 0+48
Else
RetCode = 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
WScript.Quit |
В строке, начинающейся с RetCode = WshShell.Run нужно исправить путь к Rar.exe на свой, параметры сжатия - чуть далее в строке.
В скрипт добавлена проверка: если файл _backup.rar уже существует, то будет выдано предупреждение и скрипт завершится (набросок для автопереименования/счётчика или ещё чего).
Кнопка (пути тоже исправить под свои):
Код: TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\BackupSelection.vbs
%WL "%P"
C:\Windows\System32\WScript.exe,2
Забэкапить выделенное в корне текущей папки
%COMMANDER_PATH%\Scripts
-1
|
|
