[ZayDun]

Hola, buscando por el club encontre un codigo que hace practicamente casi lo que quiero, ya que este codigo elimina todos los archivos de una extension que indiquemos en la ruta que tambien decidamos. el problema es que si por ejemplo pongo C:\ me elimina solamente los que estan en C:\ y no las extensiones que se encuentren en algun directorio por ejemplo C:\temp

Código Delphi [-]
procedure TForm1.Button2Click(Sender:TObject);
 
Var
 
MiDir:String; // Donde están los ficheros
MisFicheros:String; //Cadena que contiene el nombre con comodines
RBusqueda:TSearchRec; //Está definida en la unidad SysUtils
 
Begin
MiDir:='C:\';
MisFicheros:='*.tmp';
 
If FindFirst(MiDir+MisFicheros,faanyfile, RBusqueda)=0 Then
Begin
DeleteFile(PChar(MiDir+RBusqueda.Name)); //Borro el primero si existe
 
//Busco todos los del mismo patrón y los borro
While FindNext(RBusqueda)=0 Do
Begin
DeleteFile(PChar(MiDir+RBusqueda.Name));
End;
 
//Ambas funciones devuelven 0 si la búsqueda tiene éxito
End;
End;

Alguno sabe que puedo añadir o modificar para que busque en los directorios? gracias.