Seite 2 von 2
Verfasst: 22.10.2007 15:15
von Ghosty1967
ok, thats the code to check, if a file already exists inside the archive... i understand how to handle - but...
at the moment, i use this code to pack all files inside a directory to an archive:
Code: Alles auswählen
SOURCE.s =C:\pstand\calstand\Kalibrieraufbau\KABS-Absolutdruck\*.*
DESTINATION.s =O:\Sales and Aftersales\WorkshopE\4-KABS.zip
PureZIP_AddFiles(DESTINATION, SOURCE, #PureZIP_StorePathRelative, #PureZIP_Recursive)
and it works fine. But i think, i have to use
PureZIP_AddFiles()
PureZIP_Archive_Create()
PureZIP_Archive_Compress()
to create the archive and add files to it. I dont know how to use it.
If possible, please give me an example!
Verfasst: 22.10.2007 15:20
von Thorsten1867
Code: Alles auswählen
SetCurrentDirectory(BackupSource$)
PureZIP_SetCompressionCallback(@PureZIP_CallbackC())
If PureZIP_Archive_Create(Packfile$, #APPEND_STATUS_CREATE)
ForEach SrcFiles()
If SrcFiles()\update
PureZIP_Archive_Compress(SrcFiles()\Name, #True)
EndIf
Next
PureZIP_Archive_Close()
EndIf
SetCurrentDirectory(ProgDir$)
Verfasst: 22.10.2007 15:30
von Thorsten1867
Das wirst du wahrscheinlich auch brauchen:
Code: Alles auswählen
Procedure.s GetFileNamePart(thFile.s) ; Filename without extension
Protected ext.s = GetExtensionPart(thFile)
thFile = GetFilePart(thFile)
If ext And thFile
ProcedureReturn Left(thFile, Len(thFile)-Len(ext)-1)
Else
ProcedureReturn thFile
EndIf
EndProcedure
Procedure.s ValidDir(thPath.s) ; Make sure '\' is at the end
If thPath And Right(thPath, 1) <> "\"
thPath + "\"
EndIf
ProcedureReturn thPath
EndProcedure
Procedure.s GetZipPartName(TargetDir.s, Packfile.s)
FileName.s = GetFileNamePart(Packfile)
TargetDir = ValidDir(TargetDir)
ext.s = GetExtensionPart(Packfile)
While FileExist(TargetDir+FileName+"."+ext)
If ext = "zip"
ext = "z01"
Else
ext = "z"+RSet(Str(Val(Right(ext, 2)) + 1), 2, "0")
EndIf
If ext = "z00" : Break : EndIf
Wend
ProcedureReturn TargetDir+FileName+"."+ext
EndProcedure
Damit kannst du die Dateinamen für die Archive (z.B. *.z01) mit den geänderten Dateien ermitteln.