[Iska]

pinguindell, в пакетных файлах нет встроенных средств для создания архивов. Посему лучшим вариантом из встроенных средств будет использование PowerShell, наподобие:

Код:

Add-Type -AssemblyName 'System.IO.Compression.FileSystem'

$sFileName     = 'Презентация.pptx'

$sSourceFolder = 'T:\Откуда'
$sDestFolder   = [System.IO.Path]::Combine([System.Environment]::GetFolderPath('Desktop'), 'Куда')


$sSourceFileName = [System.IO.Path]::Combine($sSourceFolder, $sFileName)
$sDestFileName   = [System.IO.Path]::Combine($sDestFolder, [System.IO.Path]::GetFileNameWithoutExtension($sFileName) + (Get-Date -f '_yyyyMMdd_HHmmss') + '.zip')

if([System.IO.File]::Exists($sSourceFileName)) {
    if([System.IO.Directory]::Exists($sDestFolder)) {
        Compress-Archive -Path $sSourceFileName -DestinationPath $sDestFileName -Force

        if([System.IO.File]::Exists($sDestFileName)) {
            Write-Host "Successfully create zip-archive [$sDestFileName]." -ForegroundColor Green
        } else {
            Write-Host "Can't create zip-archive [$sDestFileName]." -ForegroundColor Red
        }
    } else {
        Write-Host "Can't find destination folder [$sDestFolder]." -ForegroundColor Red
    }
} else {
    Write-Host "Can't find source file [$sSourceFileName]." -ForegroundColor Red
}

в 09 :00, в 12:00 и в 17:00, »

Создаёте задание в Планировщике, которое будет исполнять скрипт PowerShell с данным кодом в указанное время.

[megaloman]

pinguindell, Посредством бесплатного архиватора 7Z (имя файла и путь укажите свои,
при наличии в именах файла/папок кириллицы озаботьтесь сохранить скрипт в 866 кодировке)

Код:

@Echo Off
        Set "FileIn=Z:\Box_In\Вязкость.png"
	Set "BoxArc=Z:\Box_Arc"
	
	Call :Arc "%FileIn%" "%BoxArc%"
Exit /B

:Arc
	If Not Exist %1 (Echo File %1 not found &Exit /B 2)
	If Not Exist "%~2\" (Echo Folder %2 not found &Exit /B 2)

	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO (
		"C:\Program Files\7-Zip\7z.exe" a "%~2\%~n1_%%d.zip" %1 -mx5
	)
Exit /B

Создаёте задание в Планировщике, которое будет исполнять скрипт с данным кодом в указанное время. »

[pinguindell]

Iska, спасибо большое !

и еще небольшое дополнение, для запуска power shell скрипта через планировщик, без отображения окна PowerShell, написал скрипт vbs, который запускает все это великолепие в фоновом режиме, без показа окна консоли

Код:

command = "powershell.exe -nologo -noninteractive -command C:\Users\user_name\Desktop\ps_script.ps1"
set shell = CreateObject("WScript.Shell")
shell.Run command,0, false

плюс в самой задаче в планировщике, во вкладке Общие, установить галку внизу "Скрытая задача"

megaloman , также спасибо большое, буду изучать и Ваш вариант

[megaloman]

написал скрипт vbs, который запускает все это великолепие в фоновом режиме, без показа окна консоли »

Ну, раз такая пьянка, то лучше уж всё сделать в VBS. Нагуглил, доработал.

Код:

FileIn = "Z:\Box_In\Вязкость.png"
BoxArc = "Z:\Box_Arc"

With CreateObject("Scripting.FileSystemObject")
    If Not .FileExists(FileIn) Then
        WScript.Echo "!!! File " + FileIn + " not found"
        WScript.Quit 1
    End If

    If Not .FolderExists(BoxArc) Then
        WScript.Echo "!!! Folder " + BoxArc + " not found"
        WScript.Quit 1
    End If
    
    DT = CStr(Year(Date)) + Right("0" + CStr(Month(Date)), 2) + Right("0" + CStr(Day(Date)), 2)
    DT = DT + Right("0" + CStr(Hour(Time)), 2) + Right("0" + CStr(Minute(Time)), 2) + Right("0" + CStr(Second(Time)), 2)
    
    Zip = BoxArc + "\" + .GetBaseName(FileIn) + "_" + DT + ".zip"
    
    On Error Resume Next
    
    Err.Number = 0
    .CreateTextFile(Zip, True).Write "PK" + Chr(5) + Chr(6) + String(18, vbNullChar)
    If Err.Number <> 0 Then
        WScript.Echo "!!! " + Zip + "  " + Err.Description + "(" + CStr(Err.Number) + ")"
        WScript.Quit 1
    End If

    Set App = CreateObject("Shell.Application")

    Err.Number = 0
    App.Namespace(Zip).CopyHere FileIn
    If Err.Number <> 0 Then
        WScript.Echo "!!! " + Zip + "  " + Err.Description + "(" + CStr(Err.Number) + ")"
        WScript.Quit 1
    End If
End With
On Error GoTo 0
WScript.Echo "=== " + Zip + "  Done"

Оказывается, нечто подобное было на форуме. При большом объеме будет окно ожидания.

[Iska]

Код: App.Namespace(Zip).CopyHere (FileIn) »

Полагаю, эти скобки — лишние.

[megaloman]

Iska, Скобки там не существенны, хотя лишнее - всегда во вред. Хуже, что скрипт работает корректно только при запуске посредством Wscript, с Cscript писАть в архив не хочет.

[Iska]

Iska, Скобки там не существенны, »

megaloman, согласен.

Собственно, всю разницу можно увидеть на таком примере:

Скрытый текст

Код:

Option Explicit

Dim strValue


strValue = "AAAA"
SomeSub strValue
WScript.Echo "strValue = " & strValue

WScript.Echo

strValue = "AAAA"
SomeSub (strValue)
WScript.Echo "strValue = " & strValue

WScript.Quit 0

Sub SomeSub(anyValue)
	WScript.Echo "anyValue before = " & anyValue
	anyValue = anyValue & "+" & anyValue
	WScript.Echo "anyValue after  = " & anyValue
End Sub

Код: anyValue before = AAAA anyValue after = AAAA+AAAA strValue = AAAA+AAAA anyValue before = AAAA anyValue after = AAAA+AAAA strValue = AAAA

По умолчанию, в VBScript параметры передаются по ссылке (в стек кладётся не значение переменной-параметра, а ссылка на саму переменную-параметр), посему, если изменить значение аргумента внутри процедуры/функции — это отразится на значении самого переданного параметра (поскольку на самом деле работа идёт как раз с ним).

Когда аргумент заключается в скобки — тем самым сначала вычисляется выражение в скобках, а затем уже это вычисленное значение передаётся в процедуру/функцию.

В таких языках, как, например, AutoIt — там практически любой вызов оформляется скобками, а вот в VBScript — скобки используются только тогда, когда вызов осуществляется в правой части выражения. В противном случае скобки интерпретируются не как скобки при вызове процедуры/функции, а как необходимость вычисления выражения.

Когда у нас имеется несколько параметров — ничего страшного, попытка такого вызова:

Код:

SomeSub (strValue1, strValue2)

приведёт к тому, что возникнет ошибка компиляции «Недопустимо использование скобок при вызове процедуры Sub». А вот если аргумент будет один, как в случае выше:

Код:

SomeSub (strValue)

— компилятор просто решит, что «ничего страшного, (strValue) — это просто выражение, которое надо вычислить и затем передать его значение в процедуру/функцию».

Хуже, что скрипт работает корректно только при запуске посредством Wscript, с Cscript писАть в архив не хочет. »

И хочет, и пишет. Просто не успевает, поскольку метод .CopyHere() работает асинхронно, т.е., объект Folder класса Shell.Application не ждёт окончания работы метода, а сразу возвращает управление скрипту, который, соответственно, продолжает свою работу. Боюсь, что на достаточно крупных файлах «обломится» и wscript.exe (сейчас не проверялось, я уже не помню конкретики).

[megaloman]

Iska, wscript.exe 1,4G съедает без проблем, сscript.exe и с 3 байтами не справляется. Но если вставить sleep (у меня 30 сек)

Код:

............
    Set App = CreateObject("Shell.Application")
    Call App.Namespace(Zip).CopyHere(FileIn)

WScript.Sleep 30 * 1000

    If Err.Number <> 0 Then
............

то мой ноут времён куликовской битвы при запуске скрипта с cscript справляется с 190М

[Iska]

megaloman, посмотрел. Дело совсем не в том, под каким хостом исполняется скрипт — wscript.exe/cscript.exe. Уберите завершающее:

Код:

WScript.Echo "=== " + Zip + "  Done"

которое не даёт скрипту вовремя завершиться, и посмотрите на получившийся результат .

Повторяю, метод .CopyHere() работает асинхронно с поздним связыванием VBScript, посему — увы и ах .