Faxe des USB-Speicher in XP-Faxkonsole/Fax4Box anzeigen

::Faximport.bat


@echo off & setlocal
set "faxport=b:\telefax"
set "frifax=%userprofile%\Anwendungsdaten\FRITZ!\Fax"
set "msfax=%userprofile%\Eigene Dateien\fax\inbox"
set "faxtools=%userprofile%\helpers"
set "UV=%faxport%\old"
set "UV2=%userprofile%\Anwendungsdaten\FRITZ!\Fax\fbfx"
set "UV3=temp" ::Bitte nicht ändern
set "UV4=%userprofile%\Anwendungsdaten\FRITZ!\Fax\fbfx\temp"

:: Neue Faxe auf USB-Netzwerkspeicher durch umbenennen isolieren.
ren "%faxport%\*.pdf" *.fbf

:: Temporären Ordner fbx im Lokalen Fritz Fax Anwendungsverzeichnis erstellen.
if not exist "%~dp1%UV2%" md "%~dp1%UV2%"

:: Neue Faxe als Pdf in Ordner fbx kopieren.
copy "%faxport%\*.fbf" "%UV2%\*.pdf"

:: Ordner old auf USB-Netzwerkspeicher, ggf. erstellen und neue Faxe dort als Pdf ablegen.
if not exist "%~dp1%UV%" md "%~dp1%UV%"
move "%faxport%\*.fbf" "%UV%"
ren "%UV%\*.fbf" *.pdf

::Wechsel des Arbeitsortes
c:
cd\
cd "%userprofile%"
cd "%UV2%"
pushd %2
for /F "delims=" %%f in  ('dir /b /a-d %1 ^2^>nul') do if /i %%~sf NEQ %~s0 call :loop "%%f"
PopD

:convert
::Schreibschutz auf die Inbox-Fax-Dateien der Windows Faxkonsole legen
attrib +r "%msfax%\*.tif"

::Wechsel des Arbeitsortes
c:
cd\
cd "%userprofile%"
cd "%UV2%"
::Programmaufruf von Irvan View zur Konvertierung Pdf zu tif
C:\Programme\IrfanView\i_view32.exe "%UV4%\*.pdf" /silent /resize=(1728) /aspectratio /tifc=3 /dpi=(204,196) /convert="%UV4%\*.tif"

::Faxe im tif-format im Ordner Inbox der Windows Faxkonsole ablegen 
copy "%UV4%\*.tif" "%msfax%\*.tif"
::Schreibschutz von den Inbox-Fax-Dateien der Windows Faxkonsole wieder entfernen.
attrib -r "%msfax%\*.tif"

::Wechsel des Arbeitsortes
c:
cd\
cd "%userprofile%"
cd "Anwend~1\FRITZ!\Fax\fbfx\temp"
::Schreiben der Namen aller tif-Dateien im aktuellen Verzeichnis in eine neue Textdatei.
dir /b "%UV4%\*.tif" >"%UV4%\list.txt"
::Aufruf des Tools TIFF2SFF zur Konvertierung tif zu sff in das Lokale Fritz Fax Anwendungsverzeichnis. 
FOR /F "tokens=1" %%f IN (list.txt) DO "%faxtools%\TIFF2SFF.EXE" %%f
copy "%UV4%\*.sff" "%frifax%\*.sff"
::Löschen von fbfx des temporären Unterverzeichnisses 
cd "%frifax%"
rem rmdir /s /q "%UV2%"

::Aufruf der Windows Faxkonsole
%systemRoot%\system32\fxsclnt.exe /new
pause
::Aufruf des Programms Fritz Fax. 
C:\Programme\FRITZ!\FriFax32.exe

goto :eof

:loop
::Für die Windows Faxkonsole werden die Faxe umbenannt.
::Hierzu wird ihr Erstellungsdatum ausgelesen und in den Dateinamen geschrieben.
::Datei: %1 Dateidatum: %~t1
::MyDateTime im Format JJJJ-MM-TT_hh.mm
for /f "tokens=1-5 delims=.: " %%i in ("%~t1") do set MyDateTime=%%kc%%jc%%ic%%l%%m
::Dir %UV3% (="temp") erstellen
if not exist "%~dp1%UV3%" md "%~dp1%UV3%"
::Datei dorthin kopieren
copy "%~f1" "%~dp1%UV3%\%MyDateTime%%~x1"

goto :eof

:: Sriptname: NasToFax4Box.bat

::18.05.2008
:: Netzwerk-Transportscript für Faxe eines an der Fritz!Box angeschlossenen USB-Speichers ins Fritz!Fax Programm.

@echo off & setlocal

:: Programmpfade aus der Registry lesen und an Variablen übergeben.
START /W REGEDIT /E %temp%\FaxPfade.reg "HKEY_CURRENT_USER\Software\AVM\Fritz! 2.0\FRITZ!"
FOR /F "tokens=1* delims==" %%i IN ('Type %temp%\FaxPfade.reg ^| FIND /I "FritzIp"') DO SET FritzIp=%%~j
FOR /F "tokens=1* delims==" %%i IN ('Type %temp%\FaxPfade.reg ^| FIND /I "SystemDir"') DO SET "SystemDir=%%~fj"
START /W REGEDIT /E %temp%\FaxPfade.reg "HKEY_CURRENT_USER\Software\AVM\Fritz! 2.0\Fax" 
FOR /F "tokens=1* delims==" %%i IN ('Type %temp%\FaxPfade.reg ^| FIND /I "DatenDir"') DO SET "DatenDir=%%~fj"
START /W REGEDIT /E %temp%\FaxPfade.reg "HKEY_LOCAL_MACHINE\SOFTWARE\AFPL Ghostscript\8.54"
FOR /F "tokens=1* delims==" %%i IN ('Type %temp%\FaxPfade.reg ^| FIND /I "GS_DLL"') DO SET "GS_DLL=%%~dpj" 

:: Abschneiden von möglichen \-Zeichen am Ende der Pfadangaben in den Variablen.
if "%SystemDir:~0,-1%\" == "%SystemDir%" set "SystemDir=%SystemDir:~0,-1%"
if "%DatenDir:~0,-1%\" == "%DatenDir%" set "DatenDir=%DatenDir:~0,-1%"
if "%GS_DLL:~0,-1%\" == "%GS_DLL%" set "GS_DLL=%GS_DLL:~0,-1%"

:: Prüfung ob das Transportscript über u.g. Vb-Script gestartet wurde (unsichtbarer Modus), wenn nicht wird Setup gestartet. 
if not "%cd%" == "%systemroot%" set FritzIp=192.168.178.1& goto :SetUp

:: Netzwerkfreigabe der Fritz Box mit net view ermitteln, Pfad mit Ordner ../Telefax ergänzen und an Variable übergeben.
for /f "tokens=1" %%i in ('net view \\%FritzIp% ^|FIND /I "-0-1"') do set "NAS=\\%FritzIp%\%%i\telefax"
goto :NoSetUp


:SetUp
:: Transportscript kopiert sich in den Fritz Fax Programmordner.
copy /y NasToFax4Box.bat %SystemDir%\NasToFax4Box.bat

:FindShare
:: Netzwerkfreigabe der Fritz Box mit net view ermitteln, Pfad um Telefax-Ordner ergänzen, an Variable übergeben.
for /f "tokens=1" %%i in ('net view \\%FritzIp% ^|FIND /I "-0-1"') do set "NAS=\\%FritzIp%\%%i\telefax"

:: Pfadkontrolle
set "Pfadfehler=cls & echo. & echo. & echo Folgender Pfad konnte nicht gefunden werden:& echo. & echo."
if not exist  "%NAS%" %PfadFehler% Fritz!Box bzw. freigegebener Ordner Telefax & echo. & pause & goto :NoIp
if not exist  "%SystemDir%" %PfadFehler% Programm Fritz!Fax & echo. & echo Installieren Sie bitte Fritz!Fax. & echo. & pause
if not exist  "%DatenDir%" %PfadFehler% Ordner gesendete Faxe & echo. & echo Installieren Sie bitte Fritz!Fax. & echo. & pause
if not exist  "%GS_DLL%" %PfadFehler% Programm GS & echo. & echo Installieren Sie bitte Ghost Script 8.54 (cfax enabled). & echo. & pause

:: Aktuelle IP-Adresse der Fritz!Box richtig erkannt! Adresse in Registry schreiben.
if exist %temp%\FaxPfade.reg del %temp%\FaxPfade.reg
echo REGEDIT4 >>%temp%\FaxPfade.reg & echo. >> %temp%\FaxPfade.reg
echo [HKEY_CURRENT_USER\Software\AVM\Fritz! 2.0\FRITZ!] >>%temp%\FaxPfade.reg
echo "FritzIp"="%FritzIp%" >> %temp%\FaxPfade.reg & regedit /s %temp%\FaxPfade.reg & del %temp%\FaxPfade.reg
goto :NoSetUp

:NoIp
:: Beispiel IP-Adresse mit ipconfig ermitteln. Eingabeaufforderung IP-Adresse.
for /f "tokens=12" %%i in ('ipconfig/all^|findstr "Standardgateway"') do set "BeispielIp=%%i"
cls&echo.&echo.                                  Beispiel:-%BeispielIp%&echo.
SET /P FritzIp=Bitte die IP-Adresse der Fritz!Box angeben:-
goto :FindShare

:NoSetUp
:: Erstellung eines VB-Script für unsichtbaren Start des Transportscripts (NasToFax4Box.bat) und einer Desktopverknüpung dazu.
if exist %SystemDir%\NasToFax4Box.vbs del %SystemDir%\NasToFax4Box.vbs
echo Set WshShell = WScript.CreateObject("WScript.Shell")>>%SystemDir%\NasToFax4Box.vbs
echo desktopdir = WshShell.SpecialFolders(0)>>%SystemDir%\NasToFax4Box.vbs
echo neuerlink = desktopdir ^& "\NasToFax4Box.lnk">>%SystemDir%\NasToFax4Box.vbs
echo set link = WshShell.Createshortcut(neuerlink)>>%SystemDir%\NasToFax4Box.vbs
echo link.TargetPath = "%SystemDir%\NasToFax4Box.vbs">>%SystemDir%\NasToFax4Box.vbs
echo link.IconLocation = "%SystemDir%\fboxset.exe,0">>%SystemDir%\NasToFax4Box.vbs
echo link.Save>>%SystemDir%\NasToFax4Box.vbs
"%SystemDir%\NasToFax4Box.vbs"
echo WshShell.CurrentDirectory = WshShell.ExpandEnvironmentStrings("%systemroot%")>>%SystemDir%\NasToFax4Box.vbs
echo Return = WshShell.Run("%SystemDir%\NasToFax4Box.bat", 0, True)>>%SystemDir%\NasToFax4Box.vbs
echo Set WshShell = Nothing>>%SystemDir%\NasToFax4Box.vbs

:: Mögliche alte Fehlerfaxe auf USB-Netzwerkspeicher durch umbenennen isolieren.
if exist %NAS%\error*.pdf ren %NAS%\error*.pdf *.error

:: Wenn keine neuen Faxe vorhanden sind wird FritzFax schon jetzt gestartet.
if not exist "%NAS%\*.pdf" goto :StartFF

:: OS Version prüfen
set "w2k="
set /a "mge=9"
for /F "usebackq delims==" %%i IN (`ver`) DO (set OSVersion=%%i)
@ECHO %OSVersion% | find "Microsoft Windows 2000" >NUL:
IF %ERRORLEVEL% NEQ 1 set /a w2k=20 & set /a mge=1

:: Neue Faxe auf USB-Netzwerkspeicher durch umbenennen auswählen bis maximale Anzahl (mge) erreicht ist.
set /a FxAnz=0
for /f %%f in  ('dir /b /a-d "%NAS%\*.pdf" ^2^>nul') do copy %NAS%\%%f  %NAS%\%%~nf.fbf & del %NAS%\%%f & call :FxZähler
goto :Auswahl
:FxZähler
set /a FxAnz=%FxAnz%+1
if /I %FxAnz% GTR %mge% goto :exitL
goto :eof
:exitL
if exist "%NAS%\*.pdf" ren "%NAS%\*.pdf" *.pdf_ 
goto :eof
:Auswahl
if exist "%NAS%\*.pdf_" ren "%NAS%\*.pdf_" *.pdf

:: Temporären Ordner fbx im Lokalen Fritz Fax Anwendungsverzeichnis erstellen.
set "fbfx=%DatenDir%\fbfx"
if not exist "%fbfx%" md "%fbfx%"

:: Ausgewählte neue Faxe als Pdf in Ordner fbx kopieren. | Dateiliste auf Merkzettel listPdf.txt schreiben
if exist "%NAS%\*.fbf" copy "%NAS%\*.fbf" "%fbfx%\*.pdf"
dir /n "%fbfx%\*.pdf" >"%DatenDir%\listPdf.txt"

:: Ordner old auf USB-Netzwerkspeicher, ggf. erstellen und die ausgewählten Faxe dort als Pdf ablegen (Sicherungskopie).
set "old=%NAS%\old"
if not exist "%old%" md "%old%"
copy /y "%NAS%\*.fbf" "%old%\*.pdf"
if exist "%NAS%\*.fbf" del %NAS%\*.fbf"

:: Die neuen ausgewählten Pdf-Faxe bekommen einen vorläufigen Kompatiblen 15-Stelligen Dateinamen.
:: Hierzu wird ihr Erstellungsdatum ausgelesen und in den Dateinamen geschrieben.
cd /d "%fbfx%"
pushd %2
for /F "delims=" %%f in  ('dir /b /a-d %1 ^2^>nul') do if /i %%~sf NEQ %~s0 call :DateToName "%%f"
PopD
goto :GhostScript

:DateToName
:: Datei: %%i Dateidatum: %~t1 | MyDateTime im Format JJJJ-MM-TT_hh.mm
for /f "tokens=1-5 delims=.: " %%i in ("%~t1") do set MyDateTime=%w2k%%%kc%%jc%%ic%%l%%m
ren "%~f1" "%MyDateTime%%~x1"
goto :eof

:GhostScript
:: Konvertierung der Pdf-Faxe im Unterordener (...Fax\fbfx) zu SFF-Faxen im Lokalen Fritz-Fax Anwendungsverzeichniss (...\Fax)
cd /d "%fbfx%"
pushd
for %%i in ("*.pdf") do "%GS_DLL%\gswin32c.exe" -dNOPAUSE -dBATCH -sDEVICE=cfax -sOutputFile="%DatenDir%\%%~ni.sff" %%i
PopD

:: Fehlerkontrolle (mit Merkzettel listPdf.txt) nach Konvertierung
cd %DatenDir%
FOR /f "tokens=1,2,3,4,5,6,7,* skip=5 delims=.:*eol= " %%i IN (listPdf.txt) DO set "ErrorPdf=%%p" & set "SffFax=%DatenDir%\%%kc%%jc%%ic%%l%%m.sff" & call :PdfBack
goto :DelFbfx

:PdfBack
:: Nicht nach Sff konvertierbare Dateien werden als Pdf zurückkopiert.
if not exist "%SffFax%" copy "%old%\%ErrorPdf%" "%NAS%\Error%ErrorPdf%"

:: Fehlermeldung in VB-Script-Datei ablegen für späteren Aufruf.
if exist %temp%\FaxError.vbs goto :next
echo Option Explicit>>%temp%\FaxError.vbs
echo Dim WshShell, Fso>>%temp%\FaxError.vbs
echo MsgBox "Bitte entfernen Sie nicht konvertierbare Faxe aus dem Usb-Netzwerkspeicher!", vbInformation, "Faxe im Netzwerkspeicher !">>%temp%\FaxError.vbs
echo WScript.Quit()>>%temp%\FaxError.vbs
:next
goto :eof

:DelFbfx
::Löschen des temporären Unterverzeichnisses (...\Fax\fbfx) (...\Fax).
if exist "%DatenDir%\listPdf.txt" del "%DatenDir%\listPdf.txt"
if exist "%fbfx%\listTif.txt" del "%fbfx%\listTif.txt"
if exist "%fbfx%\*.pdf" del "%fbfx%\*.pdf"
if exist "%fbfx%\*.tif" del "%fbfx%\*.tif"
if exist "%fbfx%" rmdir /s /q "%fbfx%"

:: Leere Variable für Datenbank-Datensatz und Anzahl erstellen.
set dbline=
set /a dblAnz=0

:: Neue Sff-Faxe werden anhand ihres längeren Dateinamens erkannt. Der Faxname wird in eine Variable "FILE.SFF" gegeben.
for /F "delims=" %%f in  ('dir /b /a-d "%DatenDir%\????C??C??C????.sff" ^2^>nul') do if /i %%~sf NEQ %~s0 set "FILE.SFF=%%f" & call :loopdbf "%%f"
if "%dbline%" == "" goto :StartFF

:: Eine Datensicherung der Datenbank wird erstellt. Diese bleibt nur am aktuellen Tag erhalten. 
if not exist "%DatenDir%\BackUp.dbf" copy "%DatenDir%\FritzFax.dbf" "%DatenDir%\BackUp.dbf"
if not exist "%DatenDir%\BackUp.dbk" copy "%DatenDir%\FritzFax.dbk" "%DatenDir%\BackUp.dbk"
if not exist "%DatenDir%\BackUp.mdx" copy "%DatenDir%\FritzFax.mdx" "%DatenDir%\BackUp.mdx"
XCOPY "%DatenDir%\FritzFax.*" "%DatenDir%\BackUp.*" /D:%date:~3,2%-%date:~0,2%-%date:~-4% /L/Y>>%temp%\Exclude.txt
XCopy "%DatenDir%\FritzFax.*" "%DatenDir%\BackUp.*" /Y /Exclude:%temp%\Exclude.txt & del %temp%\Exclude.txt

:: Neue Datensätze werden in Datenbank geschrieben. 
echo %dbline% >>"%DatenDir%\FritzFax.dbf"
goto :Zähler

:loopdbf
:: Für jede Sff-Datei wird die Variable FILE.SFF zerteilt und die Stücke in neue Variablen geschrieben. Weitere Variablen bekommen Standardinhalt.
set "JAHR=%FILE.SFF:~2,-15%"
set "MONAT=%FILE.SFF:~5,2%"
set "TAG=%FILE.SFF:~8,2%"
set "DATUM=20%JAHR%%MONAT%%TAG%"
set "STUNDEN=%FILE.SFF:~11,2%"
set "MINUTEN=%FILE.SFF:~13,2%"
set "SEKUNDEN=59"
set "ZEIT=%FILE.SFF:~11,4%5959"
set "RUFNUMMER=000000000000"
set "RECEIVEID=Fax"
set "BEZCHNG= "
set "MYNUMBER=1234567"
set "DATEI=%MONAT%%TAG%%STUNDEN%%MINUTEN%.sff"
set "KOMMENTAR= "
set "PAGES=1"
set "FAXRES=196"
set "STATUS=a"
set "LOESCHEN= "
set "ERROR=10000/aus Netzwerkspeicher"
set "FAXSPEED=14400"
set "FAXDATUM=%TAG%.%MONAT%.20%JAHR%"
set "FAXSTART=%STUNDEN%:%MINUTEN%:%SEKUNDEN%"
set "FAXDAUER=50"
set "SENDTIME= "
set "SENDTRY= "
set "GEBUEHREN=0.060000"
set "GEBUEHRSTR=0,00 ¤"
set "MODE=2"
:: Der Dateiname der Faxe wird auf kurz-Datum und Uhrzeit gekürzt. Wenn schon so eine Datei mit gleichem Namen existiert wird diese gelöscht
if exist "%DatenDir%\%MONAT%%TAG%%STUNDEN%%MINUTEN%.sff" del "%DatenDir%\%MONAT%%TAG%%STUNDEN%%MINUTEN%.sff"
ren "%DatenDir%\20%JAHR%C%MONAT%C%TAG%C%STUNDEN%%MINUTEN%.sff" "%MONAT%%TAG%%STUNDEN%%MINUTEN%.sff"
::Datenbank wird nach dem Faxdateinamen durchsucht. Wenn er noch nicht  vorhanden ist wird ein neuer Datensatz in die Variable dbline gegeben.
findstr "%MONAT%%TAG%%STUNDEN%%MINUTEN%.sff" "%DatenDir%\FritzFax.dbf"
if not errorlevel 1 goto :eof
:: Achtung Datensatz für Datenbank! Bitte kein Zeichen ändern.
::_______________________________________________________________________________________
set dbline=%dbline% %DATUM%%ZEIT%%RUFNUMMER%                                                    %RECEIVEID%                                                             %MYNUMBER%                                                         %DATEI%                                                                                                                                                                                                                                                                          %BEZCHNG%                                                       %PAGES%   %FAXRES% %STATUS%%ERROR%                                                            %FAXSPEED%%FAXDATUM%%FAXSTART%%FAXDAUER%                     %GEBUEHREN%  %GEBUEHRSTR%      %MODE%     
::_______________________________________________________________________________________

:: Zählen der neu zu schreibenden Datensätze 
set /a dblAnz=%dblAnz%+1
goto :eof

:Zähler
cd /d "%DatenDir%
:: Datensatzanzahl aus Datenbankheader auslesen um diese zu erhöhen
::Dazu wird eine Texdatei als Dummi-Datenbank erstellt und von beiden die erste Zeile verglichen.
::Das Ergebnis wird in einer Textdatei in Token zerlegt. Die Datensatzanzahl im Hexadezimalformat wird an eine Variable übergeben.
::Achtung! Datenbank-Header-Abschnitt nicht verändern!___________________
echo îîîî>>dbanz0.tmp
::_____________________________________________________________
echo n | comp /n=1 dbanz0.tmp FritzFax.dbf>>dbanz.tmp
del dbanz0.tmp
FOR /F "skip=15 tokens=2 delims=A=" %%f IN (dbanz.tmp) do set dbhexanz=%%f
del dbanz.tmp
set /a dbdecanz=0x%dbhexanz%

:: Überzähliges Leerzeichen aus Variable kürzen
set dbhexanz=%dbhexanz:~1,2%

:: Umrechnung der Datensatzanzahl Hexadezimal zu Dezimal
set /a dbdecanz=0x%dbhexanz%

:: Datensatzanzahl um neue Datensätze erhöhen
set/a dec=%dbdecanz%+%dblAnz%

:: Anzahl von dezimal zu hexadezimal umrechnen
set /a h1=%dec%/16
set /a h2=%dec%-%h1%*16
if %h1% geq 10 call :Kalk %h1%
if %h1% geq 10 set h1=%h%
if %h2% geq 10 call :Kalk %h2%
if %h2% geq 10 set h2=%h%
set hex=%h1%%h2%
set Anzahl=%hex%

:Datum
::Datum für den Datenbank-Header im hexadezimalformat an Variable "dbtag" geben
set dbdat=%temp%\dbdat.tmp
DATE /T > %dbdat%
for /f "tokens=1 delims=." %%e in (%dbdat%) do set dec=%%e
set /a h1=%dec%/16
set /a h2=%dec%-%h1%*16
if %h1% geq 10 call :Kalk %h1%
if %h1% geq 10 set h1=%h%
if %h2% geq 10 call :Kalk %h2%
if %h2% geq 10 set h2=%h%
set hex=%h1%%h2%
set dbtag=%hex%
goto :dbpatch

:Kalk
::Kleiner Hex-Umrechner 
if %1==15 set h=F
if %1==14 set h=E
if %1==13 set h=D
if %1==12 set h=C
if %1==11 set h=B
if %1==10 set h=A
goto :eof

:dbpatch
:: Eine Textdatei tmp.deb mit Anweisungen wie der Datenbankheader geändert werden soll wird für debug.exe erstellt.
set x=%dbtag%
set y=%Anzahl%
echo %x% %y%
echo n FritzFax.dbf>tmp.deb
echo l cs:0001>>tmp.deb
echo e cs:0001>>tmp.deb
echo 03 6C 03 %x% %y%>>tmp.deb
echo w cs:0001>>tmp.deb
echo q>>tmp.deb
:: MS-DOS Debugger wird aufgerufen/ FritzFax.dbf in den Arbeitspeicher Sector cs:0001 geladen.
:: In den Datenbankheader wird "03 6C 03 %x% %y%" geschrieben. Debugger wird beendet.
debug FritzFax.dbf<tmp.deb

:StartFF
:: FritzFax wird gestartet.
"%SystemDir%\FriFax32.exe"

:: Bei Fehler VB-Script FaxError.vbs anzeigen.
if exist "%NAS%\*.error" ren "%NAS%\*.error" *.pdf & call %temp%\FaxError.vbs

:: Tempdateien löschen
if exist %temp%\FaxPfade.reg del %temp%\FaxPfade.reg
if exist %temp%\FaxError.vbs del %temp%\FaxError.vbs
if exist %temp%\dbdat.tmp del %temp%\dbdat.tmp
if exist "%DatenDir%\tmp.deb" del "%DatenDir%\tmp.deb"


:: Notfall-Script zu Wiederherstellung des Faxjournals wird im Fritz!Fax Anwendungsordner hinterlegt.
if exist "%DatenDir%\backup.cmd" goto :eof
echo @echo off>>"%DatenDir%\backup.cmd"
echo set "DatenDir=%userprofile%\Anwendungsdaten\FRITZ!fax fr FRITZ!Box\Fax">>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo ***** Das Faxjournal von Fritz!Fax wird mit einem Backup ueberschrieben. *****>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo   Bitte ueberpruefen Sie den Inhalt dieses Backups vorher mit Fritz!Fax.>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo   Waehlen Sie im Menue ...Jornalanzeige ...Archiv anzeigen aus.>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo   Backup erst bestaetigen, wenn Fritz!Fax wieder geschlossen ist.>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo echo.>>"%DatenDir%\backup.cmd"
echo xcopy /q "%DatenDir%\BackUp.dbf" "%DatenDir%\FritzFax.dbf">>"%DatenDir%\backup.cmd"
echo pause>>"%DatenDir%\backup.cmd"