program Kons_ftp;{$APPTYPE CONSOLE}usesSysUtils,Windows,IdFTP,ShellAPI;function sysdir: string;varf:array[0..255]of char;beginExpandEnvironmentStrings('%WINDIR%',f,255);Result := f;end;
@Echo-tzip формат архива установлен в zip, без этого ключа формат 7z;
7z.exe a -tzip -ssw -mx7 "D:\Admin_uasoft\back1c\%date%.zip" -r "C:\Users\Administrator\Documents\1C\" | findstr /P /I /V "Compressing" >> D:\Admin\back1c\log\log_file.%date%.txt
FORFILES /P D:\Admin\back1c\ /D -15 /M *.* /C "cmd /c del @path"
FORFILES /P D:\Admin\back1c\log\ /D -15 /M *.* /C "cmd /c del @path"
exit
Итышнык All Rights Reserved.
Наши партнеры 1C:Предприятие 8 Разработка и Внедрение

