Slette mappe

ved der har været tråde omdet før, men kunne ikke få det til at virke:

Hvordan slettes en mappe med indeholdene filer?
kan ikke finde koder for dette, som virker


Mvh...
Allan Nørgaard Kristensen

Andreas Andersen


[Redigeret d. 07/10-04 11:52:42 af Andreas Andersen]

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

Her er et eks.

If fileexists... denne kode tjecker lige om filen enlige findes. Hvis den findes sletter den... Du kan eks. ændre c:\\*.* med opendialog1.filename... Men det hved du vel godt




Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

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

Her er et eks.

If fileexists... denne kode tjecker lige om filen enlige findes. Hvis den findes sletter den... Du kan eks. ændre c:\\*.* med opendialog1.filename... Men det hved du vel godt




Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Hmmm... Man kan da ikke bruge wildcards i DeleteFile ...

MH.

The-Freak

Livet er for kort til at kede sig.

Hei, prøv dette:

procedure DeleteDir(const Dir: String);
var
  T: TSHFileOpStruct;
begin
  with T do
  begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar(Dir);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(T);
end;

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Funktionen virker altså udmærket... Har prøvet!





Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Funktionen virker altså udmærket... Har prøvet!





Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Den sletter da ikke mappen, gør den ???

MH.

The-Freak

Livet er for kort til at kede sig.

Shafh -> Har prøvet... ved mig skete der ikke noget; Hverken mappen eller filerne forsvandt




MVH..
Allan Nørgaard Kristensen