anchor.diff:  :: -hp    -     
   :: -k     -   (  )
   :: --     -   
  -%archive% a -cfg- -ma -htb -m5 -rr10p -ac -ow -agDD.MM.YYYY -ep1 -hp%password% -k %CurrentDisk% %source% --
  +%ArchiveProgram% a -cfg- -ma -htb -m5 -rr10p -ac -ow -agDD.MM.YYYY -ep1 -hp%Password% -k %PathScript% %Source% --
   
   rem  
   rem %ErrorLevel%   
   ::  rar.exe
   rem      
   ::         
  -if %ErrorLevel%==0 (goto move) else (set result=" - %ErrorLevel%")
  -goto log
  +if %ErrorLevel%==0 (set Result="  "
  +goto MoveArchive) else (set Result=" - %ErrorLevel%"
  +goto Error)
   
  -:move
  +:MoveArchive
   rem      
  -rem %date%   ( )
  +rem %DATE%   ( )
   rem       
  -move %CurrentDisk%\%date%.rar %backup%
  +move %PathScript%\%DATE%.rar %Backup%
   rem        
  -if exist %backup%\%date%.rar (set result="  ") else (set result="  "
  -goto :error)
  -goto log
  +if exist %Backup%\%DATE%.rar (set Result="  ") else (set Result="  "
  +goto Error)
  +goto Log
   
  -:NoArchive
  -set result="   "
  -goto :error
  +:NoArchiveProgram
  +set Result="   "
  +goto Error
   
   :NoSourceDir
  -set result="    "
  -goto :error
  +set Result="    "
  +goto Error
   
   :NoBackupDir
  -set result="    "
  -goto :error
  +set Result="    "
  +goto Error
   
   :ExistBackup
  -set result="   "
  -goto log
  +set Result="    "
  +goto Log
   
  -:error
  -set error=1
  +:Error
  +set Error=1
   
  -:log
  -rem  .
  -rem %date%   ( )
  -rem %time%   ( )
  -echo %date% >> %logfile%
  -echo %time% >> %logfile%
  -echo %result% >> %logfile%
  -echo ... >> %logfile%
  -rem       
  -move %logfile% %backup%\backup.log /Y
  +:Log
  +rem      
  +rem %DATE%   ( )
  +rem %TIME%   ( )
  +rem %Result%  
  +rem %LogFile%    
  +rem %NumberStringsLog%   
  +::    
  +rem "" http://www.cyberforum.ru/cmd-bat/thread1299615.html
  +set "Logging=echo %DATE% %TIME% %Result% >> "%LogFile%""
  +if exist "%LogFile%" (
  + for /f %%i in ('"<"%LogFile%" find /c /v """') do (
  +  if %%i lss %NumberStringsLog% (
  +   %Logging%
  +  ) else (
  +   <"%LogFile%" more +1>.tmp
  +   >"%LogFile%" type .tmp
  +   del .tmp
  +   %Logging%
  +   )
  +  )
  +) else (
  + %Logging%
  + )
   
   rem       
   ::     
  -if exist %CurrentDisk%\%date%.rar (del %CurrentDisk%\%date%.rar /Q)
  +::  /a /y    
  +::   
  +copy /a /y %LogFile% %Backup%
   
   rem   
   rem      
   ::     
   rem forfiles -    
  -:: /P %backup% -      
  +:: /P %Backup% -      
  +:: %DATE%   ( )
   :: /M *.rar -   rar
   :: /D -%NumberArchives% -     
  -:: /C "cmd /c del /q @path" -   
  -if exist %backup%\%date%.rar (forfiles /P %backup% /M *.rar /D -%NumberArchives% /C "cmd /c del /q @path")
  +:: /C "cmd /c del /q @PATH" -   
  +if exist %Backup%%DATE%.rar (forfiles /P %Backup% /M *.rar /D -%NumberArchives% /C "cmd /c del /q @PATH")
   
  -rem      
  -::    
  -::  
   rem    
   ::     
   ::     
  -if %error%==1 (color 0c
  -echo %result%
  -pause
  -) else (chcp 866 >nul
  -exit)
  +if %Error%==1 (color 0c
  +echo %Result%
  +pause)
  +
  +rem  
  +:: (     
  +::  )
  +color 07
  +chcp %PrevCP% >nul
  +endlocal
  +rem exit
  +
  
positive.code: rem   
  rem @echo off
  rem   
  chcp 1251 >nul
  rem  
  goto start
  --------------------------------------
     
     
  
negative.code:     .
  --------------------------------------
     19/01/2015
     25/01/2015
    
  --------------------------------------
  
      
       !
      !
  
  :Start
  rem "     1 "
  ::     , 
  ::    (  )
  set Source="D:\1C\Base"
  rem        
  rem !!!      !!!
  set Backup=E:\YandexDisk\backup-1C
  rem    .
  set NumberArchives=1
  rem   
  set Password=123
  rem      
  set NumberStringsLog=90
  
  rem  
  
  rem      ()
  set PathScript="%~dp0"
  rem   
  set Error=0
  rem   (   ).
  set LogFile=%PathScript%backup.log
  
  rem     WinRar
  ::     
  if exist "%PROGRAMFILES%\WinRAR\rar.exe" (set archive="%PROGRAMFILES%\WinRAR\rar.exe") else (if exist "%PROGRAMFILES(x86)%\WinRAR\rar.exe" (set archive="%PROGRAMFILES(x86)%\WinRAR\rar.exe") else (goto NoArchive))
  
  rem   
  rem     
  if not exist %Source% (goto NoSourceDir)
  rem     
  if not exist %Backup% (goto NoBackupDir)
  rem      
  rem %DATE%   ( )
  if exist %Backup%%DATE%.rar (goto ExistBackup)
  
  rem    WinRar
  ::     
  if exist "%PROGRAMFILES%\WinRAR\rar.exe" (set ArchiveProgram="%PROGRAMFILES%\WinRAR\rar.exe") else (if exist "%PROGRAMFILES(x86)%\WinRAR\rar.exe" (set ArchiveProgram="%PROGRAMFILES(x86)%\WinRAR\rar.exe") else (goto NoArchiveProgram))
  
  rem 
  rem     rar.exe
  