Slette alle filer og undermapper i mappe?

Hvordan kan man slette alle filer og undermapper i en mappe?

Prøv med:

<pre>
procedure DeleteFiles(const From: string);
var
T:TSHFileOpStruct;
begin
with T do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:= Pchar(From);
fFlags:= FOF_SILENT or FOF_NOCONFIRMATION;
end;
SHFileOperation(T);
end;
</pre>

Den kaldes på følgende måde:

<pre>
DeleteFiles('c:\\EnMappeDerSkalSlettes');
</pre>

Det sletter mappen og alle undermapper og filer. Husk at tilføje ShellAPI til uses.

Det her virker for mig:

if fileexists('c:\\*.*') then deletefile('c:\\*.*');

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

if fileexists('mappe/*.*') then deletefile('mappe/*.*') mener det virker..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

if fileexists('mappe/*.*') then deletefile('mappe/*.*') mener det virker..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Det virker ikke.

DiZpel

Det her virker for mig:

Kode 

if fileexists('c:\\*.*') then deletefile('c:\\*.*');

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Det virker når jeg prøver dette, men det sletter jo bare én fil:

if FileExists('c:\\test\\fil.txt') then
  DeleteFile('c:\\test\\fil.txt');

Men dette virker ikke:

if FileExists('c:\\test\\*.*') then
  DeleteFile('c:\\test\\*.*');

DiZpel