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.81 MB
Ora: 0.031 c
3-21976
Termik
2001-12-06 11:47
2002.01.08
Procedure memorizzate, oggetti dinamici


3-21946
set
2001-12-05 00:08
2002.01.08
Ancora una volta lavora con basi


1-22101
DenKop
2001-12-18 14:38
2002.01.08
Creare aiuto s


4-22458
Ajax
2001-10-31 17:50
2002.01.08
TColor e RGB


1-22147
vinni2000
2001-12-20 12:59
2002.01.08
Hai bisogno di consigli su RichEdit !!!!!!!!





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 Italiano 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