Effacer une directory contenant des fichiers

Question

J'ai une directory qui contient des ficheirs temporaires.
La commande   RemoveDir('...')  donne le bon r&#233;sultat que s'il n'y a plus de fichiers &#224; l'int&#233;rieur.

Comment d&#233;truire une directory m&#234;me non vide ?

yvessimon

cptpingu · Answer

Essaie ceci:

 

 Ajoute 

  
ShellAPI

 dans les uses 

 puis la fonction : 

 

  
function EffaceDossier(Dossier: string): Boolean;
var FileOpStruct:  TShFileOpStruct;
begin
FileOpStruct.Wnd := 0;
FileOpStruct.wFunc :=  FO_DELETE;
FileOpStruct.pFrom := PChar(Dossier);
FileOpStruct.pTo :=        nil;
FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
FileOpStruct.lpszProgressTitle := nil;Result :ShFileOperation(FileOpStruct) 0;
end;

 Source: JulioDelphi => Diabloporc.free.fr

yvessimon · Answer

Sous windows 2000 avec DELPHI 7 le repertoire  'd:	emp_emi'  reste malgr&#233; la fonction ?

Aussi pour le moment je vide le repertoire de tous fichiers puis j'utilise RemoveDir(.
Merci
Salutations

yvessimon

Effacer une directory contenant des fichiers

2 réponses

Votre réponse

Discussions similaires