Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Excluindo o conteúdo do diretório Encontre agências semelhantes


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

Diga-me, por favor, como excluir o conteúdo do diretório e deixar o próprio diretório? É necessário algo como deletefile ("c: \ kio \ massiv \ *. *"). Agradeço antecipadamente e peço desculpas pela pergunta "Dummies".



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

se Findfirst ("\ TEMP \ * .tmp", faAnyFile, SearchRec) = 0, em seguida,
enquanto (FindNext (SearchRec) = 0) faz
se não for deletefile (pchar ("\ TEMP \" + SearchRec.name)), então
Application.Terminate;
FindClose (SearchRec);



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

usa Windows, SysUtils, classes, máscaras; procedimento DeleteFiles (Path: string); var Máscara: corda; SearchRec: TSearchRec; FindResult: Inteiro; Lista: TStringList; i: Inteiro; começar Máscara: = ExtractFileName (Caminho); se Mask = "" então Mask: = "*. *"; Caminho: = ExtractFilePath (Caminho); if Path = "" then Path: = IncludeTrailingBackslash (GetCurrentDir); Lista: = TStringList.Create; tentar FindResult: = FindFirst (Caminho + "*. *", FaAnyFile, SearchRec); tentar enquanto FindResult = 0 faz com SearchRec começa if ((Attr e faDirectory) = 0) e MatchesMask (Nome, Máscara), então List.Add (Nome); FindResult: = FindNext (SearchRec); fim; para i: = 0 para List.Count - 1 do DeleteFile (Caminho + Lista [i]); finalmente FindClose (SearchRec); fim; finalmente List.Free; fim; fim;



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima





Memória: 0.55 MB
Hora: 0.02 c
14-22336
Ivan Shikhalev
2001-11-02 23:31
2002.01.08
Banana Dourada


1-22091
Mikhalyov Dmitry
2001-12-19 16:02
2002.01.08
pergunta de pascal


1-22164
Warchild
2001-12-19 21:46
2002.01.08
ListBox -> Selecionar linha


1-22249
Eugene Zelikovsky
2001-12-17 13:53
2002.01.08
Como esperar por um tempo sem usar TTimer


1-21999
elefante
2001-12-15 02:02
2002.01.08
C ++ ou Delphi





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese Romeno Russa sérvio Slovak esloveno Espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol