casa
Top.Mail.Ru Yandeks.Metrika
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];

al piano di sopra









Memoria: 0.55 MB
Ora: 0.025 c
14-22354
nemesi
2001-10-08 13:02
2002.01.08
MOBILE


1-22217
greenrul
2001-12-16 02:13
2002.01.08
TreeView - un paio di domande


3-21918
SVS
2001-12-04 13:11
2002.01.08
compilando OleContainer da BlobField


4-22478
Ross
2001-08-28 16:53
2002.01.08
Inizio del menu


1-22017
Costruttore
2001-12-17 19:45
2002.01.08
Come mettere la tua linea nella modifica attuale?





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Lezioni Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo