Hello, I have kept the following message from Greg Strong for reference. It's dated 23 Mar 2008 and the Message ID is [email protected]. Please note that I never tried or tested the suggested backup method.
[QUOTE] I use 7-Zip (http://www.7-zip.org/) with a batch file to open TB. After closing TB a call is made to another batch program to backup the program directory, the mail directory, and the registry to a rotating Grandfather, Father, Son backup routine. I think it works great and have been using it for years. Originally from Marck Pearlstone per mid:[email protected] with some modifications, if your mail base goes back that far. :) I know others have their favorite. What ever works for you. :) It has never failed me yet, so I'll stay with the proven commodity beside providing a nice zip program. FWIW Batch file with Shortcut to open TB: =====================>Begin Code>===================================> "C:\program files\the bat!\thebat.exe" Call TBigfs.bat =====================<End Code<=====================================< TBigfs.bat batch file called on closing TB: =====================>Begin Code>===================================> cd \ rem (1) Set path where Windows & 7-Zip located. Path C:\Windows;C:\Program Files\7-ZIP Echo off Echo on Echo ******************************* Echo * !! Updating Backup !! * Echo * !! Archive of TB-Program !! * Echo ******************************* rem set archiver=C:\Program Files\7-Zip\7z.exe rem (2) Set drive where TB Program located. set drvPm=c: rem (3) Set drive where TB mail base located. set drvMl=x: rem (4) Set drive where TB backups located. set drvBU=x: rem (5) Set directory where TB backups located. set dstdir=TBArchives\ rem (6) Set directory where TB program located. set srcdirPM=Program files\The Bat!\ rem (7) Set directory where TB mail base located. set srcdirMl=AppsBase\MAIL\ set archive=b1 :---------------- :loopPgrm set namePgm=%dstdir%tbIcPm%archive%.7z if not exist "%drvBU%\%namePgm%" goto doitPg if "%archive%"=="b4" goto runoutPg if "%archive%"=="b3" set archive=b4 if "%archive%"=="b2" set archive=b3 if "%archive%"=="b1" set archive=b2 goto loopPgrm :---------------- :runoutPg set archDel=b1 set nameDel=%dstdir%tbIcPm%archDel%.7z del %drvBU%\%nameDel% :---------------- :doitPg regedit /e "%drvPm%\%srcdirPM%tbreg.reg" hkey_current_user\software\rit cd \ if "%archive%"=="b4" set prev=b3 if "%archive%"=="b3" set prev=b2 if "%archive%"=="b2" set prev=b1 if "%archive%"=="b1" set prev=b4 %drvPm% cd \ copy %drvBU%\%dstdir%tbIcPm%prev%.7z %drvBU%\%namePgm% 7z u -ms=off %drvBU%\%namePgm% -up0q0r2x1y2z1w2 "%srcdirPM%*" -r > X:\TBArchives\CkTBPgm.txt %drvPm% cd %srcdirPM% del tbreg.reg cd \ if "%archive%"=="b4" set archDel=b1 if "%archive%"=="b3" set archDel=b4 if "%archive%"=="b2" set archDel=b3 if "%archive%"=="b1" set archDel=b2 set namePgm=%drvBU%\%dstdir%tbIcPm%archDel%.7z del %namePgm% %drvMl% cd \ cd %srcdirMl% Echo ***************************** Echo * !! Updating Backup !! * Echo * !! Archive of TB-Mail !! * Echo ***************************** set archMl=b1 :---------------- :loopMail :---------------- set nameMl=%dstdir%tbIcMl%ArchMl%.7z if not exist "%drvBU%\%nameMl%" goto doitMl if "%archMl%"=="b4" goto runoutMl if "%archMl%"=="b3" set archMl=b4 if "%archMl%"=="b2" set archMl=b3 if "%archMl%"=="b1" set archMl=b2 goto loopMail :---------------- :runoutMl :---------------- set archDlMl=b1 set namDlMl=%dstdir%tbIcMl%archDlMl%.7z del %drvBU%\%namDlMl% :---------------- :doitMl :---------------- cd \ if "%archMl%"=="b4" set prevMl=b3 if "%archMl%"=="b3" set prevMl=b2 if "%archMl%"=="b2" set prevMl=b1 if "%archMl%"=="b1" set prevMl=b4 %drvBU% cd \ copy %drvBU%\%dstdir%tbIcMl%prevMl%.7z %drvBU%\%nameMl% %drvMl% cd \ 7z u -ms=off %drvBU%\%nameMl% -up0q0r2x1y2z1w2 "%srcdirMl%*" -r > X:\TBArchives\CkTBMail.txt if "%archMl%"=="b4" set archDlMl=b1 if "%archMl%"=="b3" set archDlMl=b4 if "%archMl%"=="b2" set archDlMl=b3 if "%archMl%"=="b1" set archDlMl=b2 set nameMl=%drvBU%\%dstdir%tbIcMl%archDlMl%.7z %drvBU% cd \ del %nameMl% %drvPm% cd %srcdirPM% =====================<End Code<=====================================< [UNQUOTE] -- Kind regards, Costas ________________________________________________ Current version is 4.2.23 | 'Using TBUDL' information: http://www.silverstones.com/thebat/TBUDLInfo.html
