Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Borrando contenidos del directorio Encontrar ramas similares


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

¿Puede decirme cómo eliminar los contenidos del directorio y dejar el directorio en sí? Necesitas algo como deletefile ("c: \ kio \ massiv \ *. *") Agradecido de antemano y pido disculpas por la pregunta "tetera".



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

si Findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 entonces
while (FindNext (SearchRec) = 0) hacer
si no es deletefile (pchar ("\ TEMP \" + SearchRec.name)) entonces
Aplicación.Terminar;
FindClose (SearchRec);



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

uses Windows, SysUtils, Classes, Masks;

procedure DeleteFiles(Path: string);
var
Mask: string;
SearchRec: TSearchRec;
FindResult: Integer;
List: TStringList;
i: Integer;
begin
Mask:=ExtractFileName(Path);
if Mask = "" then Mask:="*.*";
Path:=ExtractFilePath(Path);
if Path = "" then Path:=IncludeTrailingBackslash(GetCurrentDir);
List:=TStringList.Create;
try
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if ((Attr and faDirectory) = 0) and MatchesMask(Name, Mask) then
List.Add(Name);
FindResult:=FindNext(SearchRec);
end;
for i:=0 to List.Count - 1 do DeleteFile(Path+List[i]);
finally
FindClose(SearchRec);
end;
finally
List.Free;
end;
end;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.54 MB
Tiempo: 0.021 c
4-22456
Redmax
2001-11-01 11:10
2002.01.08
COM NetMeeting objetos


3-21939
SAN
2001-12-04 16:01
2002.01.08
MSSQL


1-22237
PVR
2001-12-16 17:20
2002.01.08
TListView ayuda a ordenar


1-22078
DJ X
2001-12-15 16:11
2002.01.08
Conversion, Registro, INI


14-22413
ENG
2001-11-11 21:27
2002.01.08
CD-RW





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español