Slet filer i direktorie

prøv en af følgende på on buttonclick

deletedir(\'c:/windows\');
deletedir(c:/windows);
deletefile(\'C:/windows\');
deletefile(C:/windows);


og ikke windows:)(

Hvis du ved hvilke filer det er kan du skrive


deletefile(\'C:\\autoexec.bat\');
deletefile(\'c:\\config.sys\');

når man så klikker på en knap sletter den disse filer

Kig i onlinehjælpen efter FindFirst og FindNext samt DeleteFile - måske skal du også bruge RemoveDir, hvis biblioteket skal slettes helt efter filerne er slettet.

Koden er noget i stil med:

var T: TSearchRec;

if (FindFirst(\'c:\\dir\\*.*\', t) = 0 then
begin
  repeat
    DeleteFile(t.name);
  until FindNext(t) <> 0;
  FindClose(t);
end

Skal vi lave den helt generelt, så den også sletter kataloger i kataloget ??

Brug den FileHandlng som Borrisholt har lavet ! Den er utrolig nem og bruge. Du kan hente den på http://borrisholt.com/FileIO/DelphiSource/Filehandling.zip

Snowball

Det er nogle forskellige filer, ikke underdirektorier.

Den skal ikke slette direktoriet!

torbenkoch :

Det skulle nu være sådan her:

var
  T: TSearchRec;
begin
if FindFirst(\'download/*.*\', faAnyFile, t) = 0 then
begin
  repeat
    DeleteFile(t.name);
  until FindNext(t) <> 0;
  FindClose(t);
end
end;

Men den sletter stadig ingen filer!!??

Nu fandt jeg selv ud af det:

var
  T: TSearchRec;
begin
if FindFirst(\'download/*.*\', faAnyFile, t) = 0 then
begin
  repeat
    DeleteFile(\'download/\' + t.name);
  until FindNext(t) <> 0;
  FindClose(t);
end
end;