Abbrevia et suprimer des dossiers pleins

**smyley** · 10/06/2003, 20h35

Salut !

Voilà, c'est simple (pas pour moi) , comment fait-on pour suprimer un dossier qui contient encore une panoplie de fichier ?
En + , j'utilise TurboPower de Abbrevia mais je suis dans l'incappatcité de supprimer un fichier d'une archive. En effet, je peut supprimer un fichier
à partir de l'interface de mon appli mais dès que je ferme celle-ci, le fichier
réaparait (comme par magie)...

Merci d'avance !

**Thierry G.** · 10/06/2003, 22h07

pour supprimer des dossiers, meme non vide (a utiliser avec prudence...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
uses ShellAPI;
 
...
 
function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

pour info si vous chercher pour copier / renommer des dossiers

http://www.swissdelphicenter.ch/en/showcode.php?id=152

**BlueX_scf** · 11/06/2003, 10h37

Thiery G. ::: smyley veut supprimer un fichier à partir d'une archive *.zip créée dans Abbrevia ... ta méthode marche(rait) pour un sys de fichier normal pas dans un zip.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure SupprimeFichier( _fichierZip, FichASupprimer : string);
var AbZipKit : TAbZipKit;
begin
  AbZipKit := TAbZipKit.create(nil);
  try
    AbZipKit.OpenArchive( _fichierZip );
    AbZipKit.DeleteFiles(fichASupprimer);
    AbZipKit.save;
    AbZipKit.CloseArchive;
  finally
    AbZipKit.Free;
  end;
end;

Remarques:
1- _FichierZip doit spécifier un nom d'archive zip complet y compris le chemin d'acces ('c:\toto\archi.zip')
2- la méthode DeleteFiles attend un Mask de fichier. c-à-d soit le nom d'un fichier ('monfich.txt') ou un mask de filtrage ('*.exe').
si t'as besoin de plus d'aide n'hésite pas à poster