suprimmer le contenu d'1 dossier

suprimmer le contenu d'1 dossier - Delphi/Pascal - Programmation

Marsh Posté le 27-09-2002 à 17:00:10    

Bonjour à tous,
Je me lance actuellement dans la programmation en delphi et je cherche à résoudre un pb.
Je veux faire suprimmer le contenue d'1 dossier mais ne trouve pas la bonne commande (deletefile ne convient que pour 1 fichier).
 
Merci de me renseigner et n'hésiter pas à me donner des liens vers des conseils, etc...
 

Reply

Marsh Posté le 27-09-2002 à 17:00:10   

Reply

Marsh Posté le 27-09-2002 à 17:12:42    

=> RemoveDir
 
Mais ton répertoire doit être vide  
 
 :hello:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 27-09-2002 à 17:18:55    

Non ce n'est pas le dossier que je veux supprimer mais tout ce qu'il contient (en gros *.*)...?

Reply

Marsh Posté le 27-09-2002 à 17:20:22    

Benh alors tu vas devoir utiliser FindFirst, FindNext, FindClose et deleter fichier par fichier, etc, etc...
 
Doit y avoir des codes qui existent sur les newsgroups ou ici
 
http://groups.google.com, première source d'info  :love:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 27-09-2002 à 17:21:49    

La preuve:
 
http://groups.google.com/groups?hl [...] 384&rnum=6
 
procedure DeleteDir(aDir: string);
{ delete directory & everything in it }
var
  T: TSHFileOpStruct;
begin
  Fillchar(T, SizeOf(T), #0);
  with T do
  begin
    Wnd := 0;                // no handle -> no animation
    wFunc := FO_DELETE;
    pFrom := pchar(aDir + #0#0);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION; // just do it
  end;
  Application.ProcessMessages;
  if (SHFileOperation(T) <> 0) then
      RemoveDir(aDir);
 end;      {DeleteDir}
 
 
Tiens c pas con ca tiens  [:ddr555]


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed