Hello,
I have kept the following message from Greg Strong for reference. It's
dated 23 Mar 2008 and the Message IDis
901242744.20080323115...@4getspam.xxx. 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:429920849.20040516222...@spamoff.ss.com 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