FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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 |
#2
|
||||
|
||||
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; Salu2.
__________________
Tengo las manos llenas de dedos... Tengo los dedos llenos de teclas... Tengo las teclas desordenadas... Tengo el desorden muy controlado... Tengo el control en mis manos. Última edición por German fecha: 22-01-2005 a las 20:03:07. |
#3
|
||||
|
||||
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 |
#4
|
||||
|
||||
Gracias
creo que ya lo arregle pero detodos modos gracias
|
#5
|
|||
|
|||
Cita:
|
#6
|
||||
|
||||
Hola,
Cita:
|
|
|
|