Código Delphi
[-]
procedure Buscar(const directory, mask: string; atributos: integer);
var
regBusqueda: TSearchRec;
begin
if FindFirst(directory + mask, atributos,regBusqueda) = 0 then
begin
try
while FindNext(regBusqueda)= 0 do begin
if (regBusqueda.Attr and faDirectory = 0)
or (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
DeleteFile(pchar(Directory + regBusqueda.name));
end;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
if FindFirst(directory + '*', atributos
or faDirectory, regBusqueda) = 0 then
begin
try
while FindNext(regBusqueda) = 0 do begin
if ((regBusqueda.Attr and faDirectory) <> 0)
and (regBusqueda.Name <> '.')
and (regBusqueda.Name <> '..') then
Buscar(directory + regBusqueda.Name + '\', Mask, atributos);
end;
except
FindClose(regBusqueda);
end;
FindClose(regBusqueda);
end;
end;
Ten cuidado con esta funcion, no vayas a llevar un disgusto
Salu2