Como borrar archivos

[martonbarbosa]

Empezado por newtron

Código Delphi [-]
Procedure BorraArchivos;
var
  Path: String;
  Fichero : TSearchRec;
begin
  Path:='C:\RUTA';
  FindFirst(Path + '\HTTP*.*', faArchive, Fichero);
  If Fichero.Name = '' then exit;
  DeleteFile(Path + '\' + Fichero.Name);
  while FindNext(Fichero) = 0 do begin
    DeleteFile(Path + '\' + Fichero.Name);
  end;
end;

WOW te agradesco muchisimo, lo acabo de probar y funciona de maravilla!!!!
es justamente lo que andaba buscando! gracias loco!!!!

Ahora voy a revisar el segundo!

Salu2

4n71chr157

[martonbarbosa]

La verdad Newtron que te agradesco muchisimo!!!

Lo pude hacer funcionar ja... y simplemente use el primer codigo que me diste y lo adapte a ambas situaciones y funciono de marabilla!!!

te adjunto el code para que veas como quedo y que funciona!

Código Delphi [-]
//Limpia Rastros Firefox
if ChFi.Checked then
 begin
  FindFirst(Raiz + Usu + Ruta + 'Datos de programa\Mozilla\Firefox\Profiles\' + '*.default', faDirectory, Fichero);
  If Fichero.Name = '' then exit;
   FileInfo.Wnd := Handle;
   FileInfo.wFunc := FO_DELETE;
   FileInfo.pFrom := PAnsiChar(Raiz + Usu + Ruta + 'Datos de programa\Mozilla\Firefox\Profiles\' + Fichero.Name + '\Cache\*.*' + #0#0);
   FileInfo.pTo := nil;
   FileInfo.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   ShFileOperation(FileInfo);
  while FindNext(Fichero) = 0 do begin
   FileInfo.Wnd := Handle;
   FileInfo.wFunc := FO_DELETE;
   FileInfo.pFrom := PAnsiChar(Raiz + Usu + Ruta + 'Datos de programa\Mozilla\Firefox\Profiles\' + Fichero.Name + '\Cache\*.*' + #0#0);
   FileInfo.pTo := nil;
   FileInfo.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   ShFileOperation(FileInfo);
  end;
 end;

Con este codigo lo que haceos es borrar la cache de Mozilla Firefox

Nuevamente muchisima gracias!!!

Salu2

4n71chr157

[[newtron]]

Nada hombre, me alegro haberte ayudado.

Saludos