Nick3230
Цитата:
Что мешает сразу создавать в UTF-16LE? Замените в кнопке %L на %WL.
Не совсем понял по списку: вы заходите в нужную папку, выделяете нужные файлы и папки, создаёте список, далее с этим списком жмёте? Или же создаёте списки с кучи папок, объединяете все в один и только потом жмёте в _backup.rar?
[more=Если первое]
Сохранить как 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
Цитата:
конвертировать из UTF-8 в UTF-16LE
Что мешает сразу создавать в UTF-16LE? Замените в кнопке %L на %WL.
Не совсем понял по списку: вы заходите в нужную папку, выделяете нужные файлы и папки, создаёте список, далее с этим списком жмёте? Или же создаёте списки с кучи папок, объединяете все в один и только потом жмёте в _backup.rar?
[more=Если первое]
Сохранить как 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