Hallo rohoel,
(Ungetestet, das überlasse ich Dir, frei nach Medion ;))
Probier's mal mit der folgenden Vorlage
ZipFiles( "\meine datei 1.bsp", Stmp \ "\backup.zip", 1, line, 8 )
an der entsprechenden Stelle ins Backup-Script einfügen.
Gruß,
m.g
hier noch das Backup-script aus diesem Thread, modifiziert:
ZitatAlles anzeigen[SIZE=6]#|------------------------------------------------------------------------------------------------------|
# Backup script für PNAs
#--------------------------- Konfiguration ---------------------------------------------------------------------------------
# Variablen
L = "\My Flash Disk\Programme\MortScript\Sav_list.txt"
Stmp = "\Temp"
BACKUP_PFAD = "\Storage Card\Backup"
# vollständiger Pfad zu Registry-Backup und Backup-Zip
Set REGBACKUP, "\Storage Card\Backup\backup.rbk"
Set ZIPBACKUP, "\Storage Card\Backup\backup.zip"
Set FAVBACKUP, "\Storage Card\Backup\fav.zip"
# vollständiger Pfad zu savereg und setmem
SET SAVEREG, "\My Flash Disk\Programme\savereg.exe"
SET SETMEM, "\My Flash Disk\Programme\setmem.exe"
# Wartezeit in ms für diverse Operationen
Set MYSLEEP, "300"
# Anlegen des Backup-Verzeichnisses
If (not DirExists (%BACKUP_PFAD%))
MkDir (%BACKUP_PFAD%)
EndIf
# Backup Registry
# mit savereg
If( question( "Backup Registry?" ) )
If (fileExists(%REGBACKUP%))
Rename(%REGBACKUP%,%REGBACKUP% & ".old",1)
EndIf
Run (%SAVEREG%,"s " & %REGBACKUP%)
# Message( "Registry Backup finished" )
Else
Message( "Registry Backup cancelled" )
EndIf
# Backup Files
freespace1 = 1
freespace2 = 2
If( question( "Backup Files?" ) )
RunWait (%SETMEM%, "23000")
# Anlegen des Temp-Verzeichnisses
If (not DirExists (%Stmp%))
MkDir (%Stmp%)
EndIf[/SIZE]
ZipFiles( "\meine datei 1.bsp", Stmp \ "\backup.zip", 1, line, 8 )
ZipFiles( "\meine datei 2.bsp", Stmp \ "\backup.zip", 1, line, 8 )
[SIZE=6] list = Readfile( L )
ForEach line in split %list%, "^LF^", 1
If (line ne "")
If (not DirExists(Stmp \ line))
MkDir(Stmp \ line)
EndIf
ForEach zfile in files (line \ "*.*")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
If (not (zfile eq "Windows\MainShell.exe"))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndIf
EndForEach
ZipFiles( Stmp \ line \ "\*.*", Stmp \ "\backup.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
EndIf
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile
EndForEach
If (fileExists(%ZIPBACKUP%))
Rename(%ZIPBACKUP%,%ZIPBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "\backup.zip",ZIPBACKUP,1)
ForEach line in split %list%, "^LF^", 1
If (line ne "")
DelTree(Stmp \ line \ "*.*")
EndIf
EndForEach
RunWait (%SETMEM%, "10000")
Message( "Files Backup finished" )
Else
Message( "Files Backup cancelled" )
EndIf
# Backup Favorites
freespace1 = 1
freespace2 = 2
If( question( "Backup Favorites?" ) )
# Anlegen des Temp-Verzeichnisses
If (not DirExists (%Stmp%))
MkDir (%Stmp%)
EndIf
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 \ "*.*")
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")
Message( "Favorites Backup finished" )
Else
Message( "Favorites Backup cancelled" )
EndIf[/SIZE]