[Delphi] usuwanie ale...

Witam,

mam pytanie jak usunac wszystkie pliki w danym folderze bez tego folderu mam taka funkcje:
function TForm1.DeleteDirectory( const dir, path : String) : Boolean; var  SR : TSearchRec;  Found : Integer;  source : String; begin source := dir + path;  Found := FindFirst( source+'\\*.*', faAnyFile, SR );    try      while  (Found = 0)  do        begin          if (SR.Name<>'.') and (SR.Name <> '..') then          begin           if (SR.Attr and faDirectory) <> 0 then           begin             DeleteDirectory( dir, path+'\\'+SR.Name );           end          else          begin           FileSetAttr(           source+'\\'+SR.Name, FileGetAttr(source+'\\'+SR.Name)                 and           not (faReadOnly or faHidden) );            if not DeleteFile( source+'\\'+SR.Name ) then              Result := False;            end;         end;          Found := FindNext( SR );        end;    finally      FindClose(SR);    end;     RemoveDir( source ); end;

Gdy wywalilem ostatnia linjke z funkcji czyli
RemoveDir( source );

to funkcja nie dzialala. Ma ktos jakieś pomysły?
Chcial bym usuwać tylko pliki o rozszerzeniu .html

---

1. Dlaczego "\\", a nie "\" ?
2. Po znalezieniu pliku sprawdzaj, czy ma rozszerzenie .html.
3. Przy ustalaniu atrybutów pliku od razu możesz dać 0, zamiast spowalniając funkcję użyciem GetFileAttr() :)
Użytkownik Cyrkiel edytował ten post 30 grudzień 2005, 10:30

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl