Andrey_A,
При архивировании не получается задать время и имя оригинального названия папки, только свой лист списка работает правильно
и хотелось бы на папку выше сохранить архив
-"Архивирование по списку с использованием программы 7Z" Call("Scripts::Main", 1, "ZipArhive.vbs", `"%а" "%a\AkelFiles\List\AkelPad.lst"`) Icon("%a\AkelFiles\ico\Winrar_pr.ico")
YearMonthDayHourMinute суда как секунды еще влепить)
Добавлено (09.04.2018, 01:46)
---------------------------------------------
Код
Call AkelPad.Include("Functions.vbs") : aPath = AkelPad.GetAkelDir(1)
Program = aPath & "\Tools\7Z\7Z.exe" : zFile = "c:\" : zList = aPath & "\List\AkelPad.lst"
With WScript
Cnt = .Arguments.Count
If Cnt > 1 Then
zFile = .Arguments(0) : zList = .Arguments(1)
If Cnt > 2 Then
zName = .Arguments(2) : If Cnt > 3 Then InName = .Arguments(3)
End If
Else
CreateObject("WScript.Shell").Popup "Не хватает параметров!!!", 1, "Архивирование по списку", 64 : .Quit
End If
End With
If Len(zName) = 0 Then zName = InName & "Akelpad " & YearMonthDayHourMinute
zPath = zFile & "\" & zName & ".zip" : iLine = Chr(34) & Chr(32) & Chr(34)
CreateObject("WScript.Shell").Run Chr(34) & Program & iLine & "a" & iLine & "-tzip" & iLine & zPath & iLine & "@" & zList & Chr(34), 2
пока так применил, коряво)
остаются прописать секунды в конце сохраненного архива и будет счастье
Код
-"Архивирование по списку с использованием программы 7Z" Call("Scripts::Main", 1, "ZipArhive.vbs", `"D:\Мои архивы" "%a\AkelFiles\List\AkelPad весь.lst"`) Icon("%a\AkelFiles\ico\Winrar_pr.ico")
