J'utilse un TABunzip pour dezippper un fichier jusque la pas de probleme mais voila je ne peux pas repeter l'operation
Je m'explique je souhaite dezipper un archive 'Temp.zip' j'utilise les fichiers deziper puis supprime le tout a la deuxieme application je retelecharge une archive temp.zip jusque la aucun probleme mais lorsque je veux la deziper avec la même fonction il ne fait rien

Voila ma fonction :
je ne comprend pas je precise que je n'ai pas de message d'erreur lors de l'execution de unzip mais apres lors de AssignFile(....) mais je me suis rendu compte que le probleme vient de cette fonction

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
        with unzip do begin
          FileName := 'c:\\Vidéothèque\\Temp\\Temp.zip';
          BaseDirectory := ExtractFilePath( FileName );
          ExtractFiles( '*.*' );
          free;
        end;
MERCI