versuche gerade, eine kleine Packroutine zusammenzufriemeln:
Code: Alles auswählen
UseZipPacker()
InitialPath$ = GetCurrentDirectory()
pathtozip$ = PathRequester("Wählen Sie einen Pfad aus", InitialPath$)
If pathtozip$
InitialPath$ = "C:\"
savepath$ = PathRequester("Wählen Sie den Speicherort", InitialPath$)
If savepath$
examdir = ExamineDirectory(#PB_Any, pathtozip$, "*.*")
If examdir <> 0
zipnum = CreatePack(#PB_Any, savepath$ + FormatDate("%yyyy_%dd_%mm_%hh_%ii_%ss", Date()) + ".zip")
If zipnum <> 0
While NextDirectoryEntry(examdir)
datei$ = DirectoryEntryName(examdir)
If DirectoryEntryType(examdir) = #PB_DirectoryEntry_File
AddPackFile(zipnum, datei$, datei$)
EndIf
Wend
ClosePack(zipnum)
FinishDirectory(examdir)
Else
MessageRequester("Fehler", "Archiv kann nicht geöffnet werden", 0)
EndIf
Else
MessageRequester("Fehler", "ExamineDirectory", 0)
EndIf
Else
MessageRequester("Fehler", "Abbruch savepath", 0)
EndIf
EndIf
End
Grüße aus dem sonnigen Hessen