directory packen
Verfasst: 12.06.2022 22:38
Hi,
versuche gerade, eine kleine Packroutine zusammenzufriemeln:
Die Routine soll ein bestimmtes Verzeichnis in eine ZIP-Datei packen. Nur das Verzeichnis, nicht evtl. vorhandene Unterverzeichnisse. Leider produziert es nur leere Zip-Dateien und ich sehe vor lauter Wald die Bäume nicht mehr. Wer kann mir den (wahrscheinlich offensichtlichen) Fehler zeigen?
Grüße aus dem sonnigen Hessen
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