Hallo,
hat zwar nichts mit dem Problem zu tun, aber vielleicht solltest du noch prüfen ob wirklich alle Verzeichnisse vorhanden sind/erstellt worden sind.
Delphi-Quellcode:
If ForceDirectories(Directory) then //sicherstellen, dass temporäres Ausgabeverzeichnis auch existiert
begin
FileList.Clear; //Dateiliste der zu entpackenden Dateien leeren
//Befindet sich die Datei in einem Unterverzeichnis im Archiv, so muss auch dieses mit angegeben werden
Mode := DFRAR_EXTRACT; //Extract kann Dateien entpacken oder nur Inhaltsverzeichnisse erstellen (DFRAR_LIST)
OverrideEvent := OR_NEVER; //Ist die Datei im Ausgabeverzeichnis bereits vorhanden, so auf keine Fall überschreiben (Alternative OR_ALWAYS)
Extract; //Nun aber los ;-)
end
else
begin
//Irgendwas machen wenn die Verzeichnisse nicht vorhanden sind/erstellt worden sind.
end;
In diesem Fall gibt ForceDirectories auch true zurück wenn die Verzeichnisse schon vorhanden sind und nicht mehr erstellt werden müssen.
Deswegen kann man auf
DirectoryExists
verzichten
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<