Pasted

 
 
::::::::::::::::::::::::::::::::::::::::::::::
::   This MoFo is "Some" Super-Workhorse!   ::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Made Generic Enough to Handle all instances of folders to backup. ::
:: v7.9.7.73 20221108210854 by -JpE- for Global Access Computers!    ::
:: Backs up Documents, Pictures, Favorites, DLs and Desktop.         ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
::: RC4
:copies
@echo off
set /a exit2=0
set /a w=0
set ttl1= ***** %oper% Backups Ultra Pro Deluxe 9
set ttl2= *****
title %ttl1%%ttl2%
 
set default=Documents
::set vers=7.9.8.92 20221203232425 by -JpE-
set getw="%bats%\get_wipe_prefs.bat"
 
set ext0=just_externals.bat
set ext1="%bats%\%ext0%"
:: Those ^ 2 used in...
set ext2="%bats%\copy_externals.bat"
 
set notonline="%bats%\not_online.bat"
set status="%bats%\status_report.bat"
set spcn= 
 
if %oper% NEQ %default% goto skip
 
echo %l2%
echo .
echo %sl%
echo          **  "Copier"  Backup-Pro Ultra Deluxe   **
echo          **  %vers%   **
echo %sl%
echo .
echo %l2%
echo .
echo %sl%
echo                   %date% @ %time%
echo %sl%
echo .
 
 
:skip
echo %l2%
echo .
echo %sl%
 
:: restore Swaps source & destination & skips externals.
if %r3v3rs3% neq 2 goto backup
:: else swapfest
set txt=%src%
set src=%cps%
set cps=%txt%
 
:: Source C: not found exception.
if not exist %src% set /a w=5
if %w% equ 5 call %notonline%
if %w% equ 5 goto return
:: So source not exist is HANDLED!
 
 
:backup
set nop=is NOT Online.
set ol1=is now Online.
 
:: src is doc source folder on C: (w==5 if not found)
set fld=%src%
if exist %status% call %status%
:: if not exist src already handled above.
 
:: cps is copies folder on D: (w==4 if not found)
set fld=%cps%
if exist %status% call %status%
 
::::::::::::::::::::::::::::::::::
:: GET STATUS OF EXTERNAL DRIVES
::::::::::::::::::::::::::::::::::
:: bk1 is I: (w==1 if not found)
set fld=%bk1%
if exist %status% call %status%
REM if not exist %fld% set /a w=1
 
:: bk2 is X: (w==2 if not found)
set fld=%bk2%
if exist %status% call %status%
REM if not exist %fld% set /a w=2
 
:: bk3 is H: (w==3 if not found)
set fld=%bk3%
set spcn=        
if exist %status% call %status%
REM if not exist %fld% set /a w=3
 
:: bk4 is U: NEW not sure about w yet.
set fld=%bk4%
set spcn= 
if exist %status% call %status%
rem end construction
 
echo %sl%
echo .
 
if not exist %cps% set /a w=4
if %w% equ 4 call %notonline%
 
set txt=Backup
if %r3v3rs3% equ 2 set txt=Restore
echo %l1%
echo .
echo %sl%
echo            ***  %oper% %txt% Underway...   ***
echo %sl%
echo .
echo %l1%
time /t
echo .
 
if not exist %getw% echo .
if not exist %getw% echo %sl%
if not exist %getw% echo           *** Get-Wipe Program NOT Found. ***
if not exist %getw% echo %sl%
if not exist %getw% echo .
if exist %getw% call %getw%
 
title %ttl1%%ttl2%
:: 
if %wipe% equ 4 if %exit2% equ 4 goto return
:: ^ Cancel was chosen.
:: 
if %w% equ 4 goto externals
:: ^^^ cps isn't available.
 
if %wipe% GTR 0 if %wipe% neq 2 del /f /s /q %cps%"\"*.*
xcopy %src%"\"*.* %cps% /D /E /V /C /F /G /R /K /Y /Z /B /J
echo .
time /t
if %errorlevel% neq 0 set /a exit2=3
if %errorlevel% neq 0 goto externals
 
set txt=Backed up
if %r3v3rs3% equ 2 set txt=Restored
echo %l1%
echo       ** %oper% Successfully %txt% Onboard!  **
 
 
:externals
if exist %ext2% call %ext2%
 
 
:return
 
 
 
:: 100% -JpE-