################################################
###                                          ###
#######             BACKUP               #######
###                                          ###
#######                                  #######
###         (c) 2008 Team Sokobana           ###
####### http://forum.pocketnavigation.de #######
###         http://www.varioskin.de          ###
################################################

############################################################
### Anwendung auf eigene Gefahr und ohne Gewährleistung! ###
###     Dieses Programm unterliegt den Rechten der       ###
###Creative Commons Attribut Non-Commercial Share Alike 3###
###     Lizenz. Genaue Angaben finden Sie beiliegend     ###
###         in der Datei Lizenz_VarioSkin3.txt           ###
############################################################
# modifiziert nach einem Script von m.g
# Änderung 14.09.07: Sicherung der Handydaten eingebaut
# Änderung 24.09.07: SIcherung Dateien rausgenommen
# Änderung 03.10.07: Fehlerbereinigung
# Änderung 11.11.07: Sicherung der Ini-Dateien
# Änderung 19.02.08: Eigene Einstellungen aus der REG sichern
# Änderung 01.03.08: Backup in V3 -> BackupV3
# Änderung 19.03.08: Sicherung POI-Warner wenn vorhanden
# Änderung 22.03.08: Sicherung Tourendaten
# Änderung 14.09.08: kleiner Fehler beseitigt
# Änderung 12.01.09: Handybackup nur wenn BT vorhanden
# Änderung 02.03.09: Speicher frei < 32000 geändert
# Änderung 14.03.09: Handydaten nur bei gepairtem Handy
# Änderung 30.04.09: Koordserver abschalten
# Änderung 04.05.09: Sicherung Glopus
#



# Geändertes Menü



If (FileExists ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr"))
	CallScript ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr")
Else
	Message( "MSDefines.mscr fehlt!" )
EndIf

Call backupeinstellungen_lesen
Call bestand_einlesen


While ( wahl <> 11 )
	call menubelegung
endwhile

Call backupeinstellungen_schreiben
Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=11" )
Call vorbereitung
KillScript( "warten.mscr" )
if (menuarray[1][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=1" )
	Sleep (2000)
	call Favoriten
	KillScript( "warten.mscr" )
endif

if (menuarray[2][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=2" )	
	Sleep (2000)
	call POI-Konfiguration
	KillScript( "warten.mscr" )
endif

if (menuarray[3][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=3" )
	Sleep (2000)
	call MENUs
	KillScript( "warten.mscr" )
endif

if (menuarray[4][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=4" )
	Sleep (2000)
	call BT-Handydaten
	KillScript( "warten.mscr" )
endif

if (menuarray[5][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=5" )
	Sleep (2000)
	call Glopus
	KillScript( "warten.mscr" )
endif

if (menuarray[6][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=6" )
	Sleep (2000)
	call Tourendaten
	KillScript( "warten.mscr" )
endif

if (menuarray[7][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=7" )
	Sleep (2000)
	call POI-Warner
	KillScript( "warten.mscr" )
endif

if (menuarray[8][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=8" )
	Sleep (2000)
	call Travelguide
	KillScript( "warten.mscr" )
endif

if (menuarray[9][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=9" )
	Sleep (2000)
	call HomeKoordinaten
	KillScript( "warten.mscr" )
endif

if (menuarray[10][3] eq "-----Ø------")
	Run( "\My Flash Disk\Sokobana\Mortscript2\MortScript.exe", """\My Flash Disk\Sokobana\Mortscript2\warten.mscr" & """ argument=10" )
	Sleep (2000)
	call Kontakte
	KillScript( "warten.mscr" )
endif
call ende



#Hintergrundprogramme beenden
sub vorbereitung

If ( RegValueExists ("HKCU", "Software\Koord\Server", "KoordServ"))
	Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 KoordServ=1 RORegKeys=0")
Endif

Kill ( "sokobana_service.exe" )
Kill ( "\my flash disk\menu.exe" )

# --- POI-Warner / POI FINDER wieder in Grundstellung --------------------

If ProcExists ("poiwarner.exe")
	kill ("poiwarner.exe")
EndIf

If ProcExists ("poi-warner.exe")
	kill ("poi-warner.exe")
Endif

If ( FileExists (%POIWARNER% & "\poi-warner.exe"))
		rename (%POIWARNER% & "\poi-warner.exe", %POIWARNER% & "\poiwarner.exe")
Endif

Sleep (2000)
# --- Speicher freimachen ---------------------------------

	Kill( "startfrommenu.exe" )
	Kill( "\my flash disk\menu.exe" )

	If WndExists ("GoPal Navigator")
		KillScript ("run_nogyro.mscr")
		Close ("GoPal Navigator")
		If WndExists ("Settings")
			Close ( "Settings" )
		EndIf
		Speicher=FreeMemory()
		While (Speicher < 32000)
			Speicher=FreeMemory()
			SleepMessage (5, "Bitte warten! GoPal wird geschlossen!")
		EndWhile
	Endif

	If WndExists ("ContactViewer")		
		Close ( "ContactViewer" )				
	EndIf

If WndExists ("ContactViewer")		
	Close ( "ContactViewer" )				
EndIf

Sleep (2000)


Stmp = "\Temp"

# vollständiger Pfad zu Backup-Zip
Set FAVBACKUP, %BACKUP_PFAD_V3%&"\fav.zip"
Set POIBACKUP, %BACKUP_PFAD_V3%&"\pois.zip"
Set MENUBACKUP, %BACKUP_PFAD_V3%&"\menus.zip"
Set TOURENBACKUP, %BACKUP_PFAD_V3%&"\touren.zip"
Set HANDYBACKUP, %BACKUP_PFAD_V3%&"\handy.zip"
Set KOORDBACKUP, %BACKUP_PFAD_V3%&"\koord.zip"
Set CONTACTSBACKUP, %BACKUP_PFAD_V3%&"\contacts.zip"
Set TRAVELGUIDEBACKUP, %BACKUP_PFAD_V3%&"\travelguide.zip"
Set POIWARNERBACKUP, %BACKUP_PFAD_V3%&"\poiwarner.zip"
Set GLOPUSBACKUP, %BACKUP_PFAD_V3%&"\glopus.zip"
# Wartezeit in ms für diverse Operationen
Set MYSLEEP, "300"

# Vergrößern des Storage-Memorys für größere ZIPpereien
Run (%KOORD_PFAD%, "window=0 SetMem="&%BACKUP_SPEICHER%)

# Anlegen des Backup-Verzeichnisses
If (not DirExists (%BACKUP_PFAD_V3%))
	MkDir (%BACKUP_PFAD_V3%)
EndIf

sleep %MYSLEEP%

# Anlegen des Temp-Verzeichnisses
If (not DirExists (%Stmp%))
	MkDir (%Stmp%)
EndIf

endsub

# Sicherung der Favoriten

sub Favoriten

freespace1 = 1
freespace2 = 2

If FileExists ("\My Flash Disk\settings\Navigation\pf.cdb")

	MkDir (Stmp \ "My Flash Disk")
	MkDir (Stmp \ "My Flash Disk\settings")
	MkDir (Stmp \ "My Flash Disk\settings\Navigation")
	line = "My Flash Disk\settings\Navigation"

	ForEach zfile in files (line \ "*.cdb")
		If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
			Copy (zfile, %Stmp% \ zfile, 1)
		EndIf
	EndForEach

	ZipFiles( Stmp \ line \ "*.*", Stmp \ "fav.zip", 1, line, 8 )
	Delete(Stmp \ line \ "*.*")

	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile

	If (fileExists(%FAVBACKUP%))
		Rename(%FAVBACKUP%,%FAVBACKUP% & ".old",1)
	EndIf

	Rename (Stmp \ "fav.zip",FAVBACKUP,1)
	DelTree(Stmp \ line \ "*.*")
	DelTree(Stmp \ "My Flash Disk\settings")
	DelTree(Stmp \ "My Flash Disk")
	KillScript( "warten.mscr" )
EndIf




endsub

# Backup POIs

sub POI-Konfiguration

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\poi\poi.pc"))

		ZipFiles("\My Flash Disk\navigation\poi\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\poi",8 )
		If (fileExists("\My Flash Disk\sokobana\mortscript\poi.ini"))
		ZipFile("\My Flash Disk\sokobana\mortscript\poi.ini", "\Temp\pois.zip","\My Flash Disk\sokobana\mortscript\poi.ini",8 )
		EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_1\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_1\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_1",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_2\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_2\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_2",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_3\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_3\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_3",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_4\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_4\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_4",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_5\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_5\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_5",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_6\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_6\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_6",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_7\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_7\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_7",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_8\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_8\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_8",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_9\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_9\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_9",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_10\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_10\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_10",8 )
			EndIf					

While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%POIBACKUP%))
Rename(%POIBACKUP%,%POIBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "pois.zip",POIBACKUP,1)
EndIf



endsub

# Backup MENUs

sub MENUs

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\menu\menu.xml"))
		
		ZipFiles("\My Flash Disk\navigation\menu\480272\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272",8 )
		ZipFile("\My Flash Disk\navigation\menu\menu.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu.xml",8 )
		If (fileExists("\My Flash Disk\sokobana\mortscript\menu.ini"))
			ZipFile("\My Flash Disk\sokobana\mortscript\menu.ini", "\Temp\menus.zip","\My Flash Disk\sokobana\mortscript\menu.ini",8 )
		EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_01.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_01\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_01",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_01.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_01.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_02.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_02\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_02",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_02.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_02.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_03.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_03\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_03",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_03.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_03.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_04.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_04\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_04",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_04.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_04.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_05.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_05\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_05",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_05.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_05.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_06.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_06\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_06",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_06.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_06.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_07.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_07\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_07",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_07.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_07.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_08.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_08\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_08",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_08.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_08.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_09.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_09\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_09",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_09.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_09.xml",8 )
			EndIf
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%MENUBACKUP%))
Rename(%MENUBACKUP%,%MENUBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "menus.zip",MENUBACKUP,1)
EndIf

endsub

# Backup Handydaten

sub BT-Handydaten

freespace1 = 1
freespace2 = 2

If (fileExists("\Windows\BTDynamicConfig.ini"))
	If (fileExists("\Windows\REMOTEDEVICE.INI"))
			
		Copy ("\Windows\REMOTEDEVICE.INI", "\Temp\REMOTEDEVICE.INI", 1)
		Copy ("\Windows\SHORTCUT.INI", "\Temp\SHORTCUT.INI", 1)
		ZipFiles("\Temp\*.ini","\Temp\handy.zip", 0, "Windows")
		Delete("\Temp\*.INI")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
		If (fileExists(%HANDYBACKUP%))
			Rename(%HANDYBACKUP%,%HANDYBACKUP% & ".old",1)
		EndIf
		Rename ("Temp\handy.zip",HANDYBACKUP,1)
	EndIf
EndIf

endsub

# Backup Glopus

sub Glopus

freespace1 = 1
freespace2 = 2

If (FileExists ("\My Flash Disk\Programme\Glopus\Glopus.exe"))
			
RunWait (%KOORD_PFAD%, "window=0 copy=\My Flash Disk\Programme\Glopus|\Temp\Glopus|2") 
ZipFiles("\Temp\Glopus\*.*", "\Temp\glopus.zip",1,"\My Flash Disk\Programme\Glopus",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile
runwait ( "\My Flash Disk\Sokobana\Mortscript2\GloRegBackup.exe")
If (fileExists(%GLOPUSBACKUP%))
Rename(%GLOPUSBACKUP%,%GLOPUSBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "glopus.zip",GLOPUSBACKUP,1)
DelTree("\Temp\Glopus\*.*")
EndIf

endsub

# Backup TOUREN

sub Tourendaten

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\settings\navigation\tourplan.xml"))
			
		ZipFiles("\My Flash Disk\settings\navigation\*.xml", "\Temp\touren.zip",1,"\My Flash Disk\settings\navigation",8 )
		ZipFile("\My Flash Disk\sokobana\mortscript\touren.ini", "\Temp\touren.zip","\My Flash Disk\sokobana\mortscript\touren.ini",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%TOURENBACKUP%))
Rename(%TOURENBACKUP%,%TOURENBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "touren.zip",TOURENBACKUP,1)
EndIf

endsub

# Backup POIWarner / POI FINDER

sub POI-Warner

freespace1 = 1
freespace2 = 2

If (fileExists(%POIWARNER% & "\poiwarner.exe"))
	
	ZipFiles(%POIWARNER% & "\*.*", "\My Flash Disk\poiw.zip",1,%POIWARNER%,8 )
	ZipFile("\My Flash Disk\navigation\dstcom02.dll", "\My Flash Disk\poiw.zip","\My Flash Disk\navigation\dstcom02.dll",8 )
	
	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile

	If (fileExists(%POIWARNERBACKUP%))
		Rename(%POIWARNERBACKUP%,%POIWARNERBACKUP% & ".old",1)
	EndIf
	Rename ("\My Flash Disk\poiw.zip",POIWARNERBACKUP,1)
EndIf

endsub

# Backup Travelguide

sub Travelguide

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\multimedia\travelguide\480x272\TravelGuide.exe"))

RunWait (%KOORD_PFAD%, "window=0 copy=\My Flash Disk\navigation\multimedia\travelguide\database|\Temp\travelguide|2") 
ZipFiles("\Temp\travelguide\*.*", "\Temp\travelguide.zip",1,"\My Flash Disk\navigation\multimedia\travelguide\database",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%TRAVELGUIDEBACKUP%))
Rename(%TRAVELGUIDEBACKUP%,%TRAVELGUIDEBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "travelguide.zip",TRAVELGUIDEBACKUP,1)
DelTree("\Temp\travelguide\*.*")
EndIf

endsub

# Backup HOME-Koordinaten

sub HomeKoordinaten

freespace1 = 1
freespace2 = 2

If (FileExists ("\My Flash Disk\Sokobana\Koord\home.3na"))

MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\Sokobana")
MkDir (Stmp \ "My Flash Disk\Sokobana\Koord")
line = "My Flash Disk\Sokobana\Koord"
ForEach zfile in files (line \ "*.3na")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
Copy (zfile, %Stmp% \ zfile, 1)
ZipFiles( Stmp \ line \ "*.*", Stmp \ "koord.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%KOORDBACKUP%))
Rename(%KOORDBACKUP%,%KOORDBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "koord.zip",KOORDBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk\Sokobana")
DelTree(Stmp \ "My Flash Disk")
EndIf

endsub

# Backup Contacts

sub Kontakte

If (fileExists("\My Flash Disk\contacts\contacts.db"))

MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\contacts")
line = "My Flash Disk\contacts"
ForEach zfile in files (line \ "*.*")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
ZipFiles( Stmp \ line \ "*.*", Stmp \ "contacts.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%CONTACTSBACKUP%))
Rename(%CONTACTSBACKUP%,%CONTACTSBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "contacts.zip",CONTACTSBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk")
EndIf


endsub


# Zurücksetzen des Storage-Memorys

sub ende
Run (%KOORD_PFAD%, "window=0 SetMem="&%STANDARD_SPEICHER%)
Message ( "Backup beendet.")
If DirExists (%Stmp%)
	DelTree (%Stmp%)
EndIf
#Reset
endsub

sub backupeinstellungen_lesen

if FileExists (	"\Storage Card\backupV3\backup.ini")

	menuarray[1][3] = IniRead ("\Storage Card\backupV3\backup.ini", "Favoriten", "3") 			# "Favoriten"
	menuarray[2][3] = IniRead ("\Storage Card\backupV3\backup.ini", "POI-Konfiguration", "3")	# "POI-Konfiguration"
	menuarray[3][3] = IniRead ("\Storage Card\backupV3\backup.ini", "MENUs", "3") 				# "MENUs"
	menuarray[4][3] = IniRead ("\Storage Card\backupV3\backup.ini", "BT-Handydaten", "3") 		# "BT-Handydaten"
	menuarray[5][3] = IniRead ("\Storage Card\backupV3\backup.ini", "Glopus", "3") 				# "Glopus"
	menuarray[6][3] = IniRead ("\Storage Card\backupV3\backup.ini", "Tourendaten", "3") 		# "Tourendaten"
	menuarray[7][3] = IniRead ("\Storage Card\backupV3\backup.ini", "POI-Warner", "3") 			# "POI-Warner"
	menuarray[8][3] = IniRead ("\Storage Card\backupV3\backup.ini", "Travelguide", "3")			# "Travelguide"
	menuarray[9][3] = IniRead ("\Storage Card\backupV3\backup.ini", "Home_Koordinaten", "3") 	# "Home Koordinaten"
	menuarray[10][3] =IniRead ("\Storage Card\backupV3\backup.ini", "Kontakte", "3") 			# "Kontakte"
	menuarray[11][3] =("") 	# "Backup starten"
else	
	
	menuarray[1][3] = "-----O------"
	menuarray[2][3] = "-----O------" 
	menuarray[3][3] = "-----O------"
	menuarray[4][3] = "-----O------"
	menuarray[5][3] = "-----O------" 
	menuarray[6][3] = "-----O------" 
	menuarray[7][3] = "-----O------"
	menuarray[8][3] = "-----O------" 
	menuarray[9][3] = "-----O------" 
	menuarray[10][3] ="-----O------" 
endif
endsub

sub backupeinstellungen_schreiben



IniWrite ("\Storage Card\backupV3\backup.ini", "Favoriten", "3", menuarray[1][3]) 			# "Favoriten"
IniWrite ("\Storage Card\backupV3\backup.ini", "POI-Konfiguration", "3", menuarray[2][3])	# "POI-Konfiguration"
IniWrite ("\Storage Card\backupV3\backup.ini", "MENUs", "3", menuarray[3][3]) 				# "MENUs"
IniWrite ("\Storage Card\backupV3\backup.ini", "BT-Handydaten", "3", menuarray[4][3]) 		# "BT-Handydaten"
IniWrite ("\Storage Card\backupV3\backup.ini", "Glopus", "3", menuarray[5][3]) 				# "Glopus"
IniWrite ("\Storage Card\backupV3\backup.ini", "Tourendaten", "3", menuarray[6][3]) 		# "Tourendaten"
IniWrite ("\Storage Card\backupV3\backup.ini", "POI-Warner", "3", menuarray[7][3]) 			# "POI-Warner"
IniWrite ("\Storage Card\backupV3\backup.ini", "Travelguide", "3", menuarray[8][3])			# "Travelguide"
IniWrite ("\Storage Card\backupV3\backup.ini", "Home_Koordinaten", "3", menuarray[9][3]) 	# "Home Koordinaten"
IniWrite ("\Storage Card\backupV3\backup.ini", "Kontakte", "3", menuarray[10][3]) 			# "Kontakte"

endsub
sub bestand_einlesen

If FileExists (	%BACKUP_PFAD_V3%&"\fav.zip")			# "Favoriten"
menuarray[1][4]= "---Ø---"
menuarray[1][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\fav.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\pois.zip")			# "POI-Konfiguration"
menuarray[2][4]= "---Ø---"
menuarray[2][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\pois.zip" ))
endif
If FileExists ( %BACKUP_PFAD_V3%&"\menus.zip")			#"MENUs"
menuarray[3][4]= "---Ø---"
menuarray[3][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\menus.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\handy.zip")			# "BT-Handydaten"
menuarray[4][4]= "---Ø---"
menuarray[4][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\handy.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\glopus.zip")			# "Glopus"
menuarray[5][4]= "---Ø---"
menuarray[5][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\glopus.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\koord.zip")			# "Tourendaten"
menuarray[6][4]= "---Ø---"
menuarray[6][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\koord.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\poiwarner.zip")		# "POI-Warner"
menuarray[7][4]= "---Ø---"
menuarray[7][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\poiwarner.zip" ))
endif
If FileExists ( %BACKUP_PFAD_V3%&"\travelguide.zip")	# "Travelguide"
menuarray[8][4]= "---Ø---"
menuarray[8][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\travelguide.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\touren.zip")			# "Home Koordinaten"
menuarray[9][4]= "---Ø---"
menuarray[9][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\touren.zip" ))
endif
If FileExists (	%BACKUP_PFAD_V3%&"\contacts.zip")		#"Kontakte"
menuarray[10][4]= "---Ø---"
menuarray[10][5]= FormatTime( "Y.m.d.H:i" , FileModifyTime( %BACKUP_PFAD_V3%&"\contacts.zip" ))
endif
endsub














sub menubelegung

menuarray[1][1]=   "Favoriten---------------"
menuarray[2][1]=   "POI-Konfiguration---"
menuarray[3][1]=   "MENUs------------------"
menuarray[4][1]=   "BT-Handydaten------"
menuarray[5][1]=   "Glopus------------------"
menuarray[6][1]=   "Tourendaten---------"
menuarray[7][1]=   "POI-Warner-----------"
menuarray[8][1]=   "Travelguide-----------"
menuarray[9][1]=   "Home Koordinaten-"
menuarray[10][1]=  "Kontakte--------------"
menuarray[11][1]=  "Backup starten----"

If FileExists ("\My Flash Disk\settings\Navigation\pf.cdb")
	menuarray[1][2]=  "-----Ø------"
else
	menuarray[1][2]=  "-----O------"
endif

If (fileExists("\My Flash Disk\navigation\poi\poi.pc"))
	menuarray[2][2]=  "-----Ø------"
else
	menuarray[2][2]=  "-----O------"
endif

If (fileExists("\My Flash Disk\navigation\menu\menu.xml"))
	menuarray[3][2]=  "-----Ø------"
else
	menuarray[3][2]=  "-----O------"
endif

If (fileExists("\Windows\BTDynamicConfig.ini"))
	menuarray[4][2]=  "-----Ø------"
else
	menuarray[4][2]=  "-----O------"
endif
	
If (FileExists ("\My Flash Disk\Programme\Glopus\Glopus.exe"))
	menuarray[5][2]=  "-----Ø------"
else
	menuarray[5][2]=  "-----O------"
endif
	
If (fileExists("\My Flash Disk\settings\navigation\tourplan.xml"))
	menuarray[6][2]=  "-----Ø------"
else
	menuarray[6][2]=  "-----O------"
endif

If (fileExists(%POIWARNER% & "\poiwarner.exe"))
	menuarray[7][2]=  "-----Ø------"
else
	menuarray[7][2]=  "-----O------"
endif
	
If (fileExists("\My Flash Disk\navigation\multimedia\travelguide\480x272\TravelGuide.exe"))
	menuarray[8][2]=  "-----Ø------"
else
	menuarray[8][2]=  "-----O------"
endif
	
If (FileExists ("\My Flash Disk\Sokobana\Koord\home.3na"))
	menuarray[9][2]=  "-----Ø------"
else
	menuarray[9][2]=  "-----O------"
endif
	
If (fileExists("\My Flash Disk\contacts\contacts.db"))
	menuarray[10][2]=  "-----Ø------"
else
	menuarray[10][2]=  "-----O------"
endif

If (fileExists("\Storage Card\BackupV3\backup.ini"))
	menuarray[11][2]=  ""
else
	menuarray[11][2]=  ""
endif
	
#menuarray[1][3]= "--Ø") 	# "Favoriten"
#menuarray[2][3]= "--Ø") 	# "POI-Konfiguration"
#menuarray[3][3]= "--Ø") 	# "MENUs"
#menuarray[4][3]= "--Ø") 	# "BT-Handydaten"
#menuarray[5][3]= "--Ø") 	# "Glopus"
#menuarray[6][3]= "--Ø") 	# "Tourendaten"
#menuarray[7][3]= "--Ø") 	# "POI-Warner"
#menuarray[8][3]= "--Ø")	 	# "Travelguide"
#menuarray[9][3]= "--Ø") 	# "Home Koordinaten"
#menuarray[10][3]="--Ø") 	# "Kontakte"
#menuarray[11][3]="--Ø") 	# "Backup starten"

a = 0
b = (MaxIndex (menuarray))
while (a < b)
	a = a + 1
	menu[a]= menuarray[a][1] & menuarray[a][2]& menuarray[a][3]& "---------" &  menuarray[a][5]
	
	
endwhile
wahl = Choice( "Backupeinstellungen", " -Von welchen Daten soll ein Backups erstellt werden- ^NL^ aktive Backups werden ausgeführt, die Einstellungen gespeichert^NL^ Kategorie             installiert?       aktiv?        letzte Sicherung vom" ,0,0 , menu )
if (wahl = 0 )
	exit
endif
 
if (menuarray[wahl][3]eq "-----Ø------"

	menuarray[wahl][3]= "-----O------"

else
	menuarray[wahl][3]= "-----Ø------"

endif
endsub