Como borrar archivos

[martonbarbosa]

Hola gente otra ves yo

Mi consulta es lo siguiente:

Tengo una carpeta que contiene varios archivos que comienzan con la palabra http y quiero borrarlos a todos, pero tengo que DEJAR uno solo que no empieza asi...

Entonces la idea seria ver, si se puede hacer algun codigo que me permita borrar cualquier archivo que empieze con HTTP.....

Probe de mil formas y NO me salio....

Alguna idea?

Otra consulta:

Yo tengo una carpeta que se llama: "bo9exitk.default"
y me gustaria poder ingresa a esa carpeta desde delphi, pero ingresando por:
".default"

Hay alguna forma de yo, poder entrar poniendo como ruta ".default" asi de esa manera obviar el "bo9exitk", que por cierto sulen ser numeros y letras aleatorias.

Se trata de la carpeta de firefox que contiene la CACHE y estoy haciendo un programa para borrar dicha cache... pero la idea no es usarlo solo en mi PC... yo quiero usarlo en cualquier PC....

Desde ya muchisimas gracias

4n7chr157

[[newtron]]

Hola.

Aquí tienes la respuesta para tu primer tema:

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;

Esto no está probado, espero que funcione.

Seguro que hay una forma para no duplicar el deletefile pero ahora mismo no se me ocurre.

Tendrás que añadir al uses del formulario la unidad SysUtils.

Saludos

Edito:
Para la segunda pregunta échale un vistazo a esto:

http://delphiallimite.blogspot.com/2...rectorios.html

que tiene ejemplos bastante claros para el tema que comentas.

Saludos

[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