Cancellare il contenuto della directory

← →
Марина (2001-12-20 15:42) [0]

Puoi dirmi come cancellare il contenuto della directory e lasciare la directory stessa? Hai bisogno di qualcosa come deletefile ("c: \ kio \ massiv \ *. *") Grazie in anticipo e mi scuso per la domanda "teiera".

← →
gek (2001-12-20 15:47) [1]

se Findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 quindi
while (FindNext (SearchRec) = 0) fare
se non deletefile (pchar ("\ TEMP \" + SearchRec.name)) quindi
Application.Terminate;
FindClose (SearchRec);

← →
Dimka Maslov (2001-12-20 16:05) [2]

usa Windows, SysUtils, Classes, Maschere; procedura DeleteFiles (Path: string); var Maschera: stringa; SearchRec: TSearchRec; FindResult: Integer; Elenco: TStringList; i: intero; iniziare Mask: = ExtractFileName (Path); se Mask = "", quindi Mask: = "*. *"; Path: = ExtractFilePath (Path); se Path = "" quindi Path: = IncludeTrailingBackslash (GetCurrentDir); Elenco: = TStringList.Create; provare FindResult: = FindFirst (Path + "*. *", FaAnyFile, SearchRec); provare while FindResult = 0 fa con SearchRec iniziare if ((Attr and faDirectory) = 0) e MatchesMask (Name, Mask) quindi List.Add (Nome); FindResult: = FindNext (SearchRec); fine; per i: = 0 su List.Count - 1 do DeleteFile (Path + List [i]); infine FindClose (SearchRec); fine; infine List.Free; fine; fine;

Cancellare il contenuto della directory Trova rami simili