Code: Alles auswählen
Define.s zip = GetPathPart(ProgramFilename())+GetFilePart(ProgramFilename())

Denk mal drüber nach.
Und bei dem Rest guck Dir mal obiges Beispiel an, ZIP_ExtractArchiv() macht, was Du mit
Deiner Schleife usw. machst

Freut mich, wenn alles funktioniert bei Dir

Gruß
Thomas