Slette alle filer og mapper, selvom nogen af dem er i brug?

tror ikke det kan lade sig gøre uden en genstart af computeren.

Man kan gøre det i Total Commander, der sletter den alle filerne og fortæller så hvilke filer den ikke kunne slette fordi de er i bruge, men den sletter de andre, så det burde kunne lade sig gøre.

Den første funktion som jeg postede og som du ikke lige kunne få til at virke kan hurtig laves om til det du har brug for.

nåe ja, man skal jo også lige læse det ordentligt, troede du ville slette alt, også selvom det var i brug ... : )

I en dos-prompt ville "echo y | del ." tage livet af de filer der ikke blev brugt. Med katalogerne skulle vi nok over i noget med "for".

.. nå men.

Det er da ikke et problem at bygge det ind i en rekursiv filsøgealgoritme (det findes der mange eksmpler af her på Eksperten) og så pakke deletefile og deledirectory (?) ind i en try-except.

Her får du en TStringList med de filer og mapper der ikke kunne slettes.

procedure RemoveTree(DirName: string;Rest : TStringList);
var
  DirInfo: TSearchRec;
begin
    DirName:=IncludeTrailingPathDelimiter(DirName);
    if FindFirst(DirName+'*.*', FaAnyfile, DirInfo)=0 then
    repeat
        if (DirInfo.Attr=faDirectory) and (DirInfo.Name<>'.') and (DirInfo.Name<>'..') then
            RemoveTree(DirName+DirInfo.Name,Rest);
        if ((DirInfo.Attr and FaDirectory<>FaDirectory) and (DirInfo.Attr and FaVolumeId<>FaVolumeID)) then
        if not DeleteFile(PChar(DirName+DirInfo.Name)) then
          Rest.Add('Kan ikke slette fil: '+DirName+DirInfo.Name);
    until FindNext(DirInfo)<>0;
    FindClose(DirInfo);
    if not RemoveDirectory(PChar(DirName)) then
        Rest.Add('Kan ikke slette mappe: '+DirName);
end;

-----------------

Kaldes således:

var
    Rest : TStringList;
begin
    Rest:=TStringList.Create;
    RemoveTree('c:\test',Rest);
  ShowMessage(Rest.Text);
    Rest.Free;
end;

Ja det virker helt fint, så skal jeg bare have lavet en rutine hvor den udelukker de låste filer og mapper.

Hvis filen/mappen er låst så sletter ovenstående procedure ikke filen/mappen.

Hej kroning.

Smid et svar :-) Havde helt glemt at jeg havde det er spm åben undskyld, men har ikke været på længe og har ikke haft tid til at programmere i et stykke tid. :-)

ok