Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
giù
Cancellare il contenuto della directory Trova rami simili
← →
Марина (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;
Pagine: 1 tutto il ramo
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
Memoria: 0.55 MB
Ora: 0.025 c