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; MisFicheros:String; RBusqueda:TSearchRec;
Begin
MiDir:='C:\';
MisFicheros:='*.tmp';
If FindFirst(MiDir+MisFicheros,faanyfile, RBusqueda)=0 Then
Begin
DeleteFile(PChar(MiDir+RBusqueda.Name));
While FindNext(RBusqueda)=0 Do
Begin
DeleteFile(PChar(MiDir+RBusqueda.Name));
End;
End;
End;
Alguno sabe que puedo añadir o modificar para que busque en los directorios? gracias.