Foros Club Delphi - Como eliminar una carpeta y todos sus archivos? Ayudaa

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como eliminar una carpeta y todos sus archivos? Ayudaa (https://www.clubdelphi.com/foros/showthread.php?t=17809)

Supra

22-01-2005 02:44:21

Como eliminar una carpeta y todos sus archivos? Ayudaa

Buenas
es que quiero crear una aplicacion que al ejecutarse borre una determinada carpeta es que no se quien o por que siempre me aparese una carpeta y quiero hacer la aplicacion inbisible que al arancar e sistema operativo se arranque el programa eso ya esta resuelto ahora solamente falta saber como borro esa carpeta y todo su contenido ¿se puede? ¿ Como?
de antemano gracias salu2

German

22-01-2005 19:59:36

Código:

Uses SysUtils



...



procedure EliminaCarpeta(Carpeta:String);

var 

I: Integer;

DirInfo: tSearchRec;

begin

  I := FindFirst(Carpeta+'*.*', faAnyFile, DirInfo);

  while I = 0 do

  begin

    DeleteFile(pChar(Carpeta+DirInfo.Name));

    I := FindNext(DirInfo);

  end;

  FindClose(DirInfo);

  RemoveDir(Carpeta);

end;

EliminarCarpeta('C:\Mis documentos\Temporal\');

Salu2.

salvica

23-01-2005 12:03:30

Creo que esto solo vale si la carpeta "no tiene subcarpetas"

En este mismo foro (trucos / Ficheros, Discos) tienes la implementación del "DelTree" del DOS (en recursivo)
http://www.clubdelphi.com/vertruco.php?id=310

Saludos

Supra

24-01-2005 00:17:22

Gracias

creo que ya lo arregle pero detodos modos gracias

ginasil

15-07-2008 14:08:42

Cita:

Empezado por salvica (Mensaje 75627)

esto ya no esta disponible?

dec	15-07-2008 14:12:43

Hola,

Cita:

Empezado por ginasil

esto ya no esta disponible?

Busca por "borrar" en los trucos y verás que aparecen varios que pueden servirte.

La franja horaria es GMT +2. Ahora son las 09:24:44.