Título: [Source] Eliminar carpetas, subcarpetas y archivos Publicado por: nhaalclkiemr en 14 Febrero 2008, 18:46 pm Weno pues he hecho una funcion sencilla para borrar carpetas y sus archivos, con la posibilidad de eliminar sus subcarpetas. La funcion devolverá 0 si no se consiguió eliminar a carpeta original, si la carpeta se consiguó eliminar correctamente devolverá un valor distinto de 0. Fijate en que para borrar una carpeta primero hay que borrar todos sus archivos, si cualquier archivo de cualquier subcarpeta no se consiguió eliminar (por ejemplo por estár en uso) no se podrá borrar la carpeta original y la funcion devolverá 0, aunke puede que borrase la mayor parte de los archivos igualmente...
Si seleccionas eliminar las subcarpetas (que es lo normal) se borrarán todos los archivos y subcarpetas de la misma, y por ultimo se borra tambien la carpeta. Si no seleccionas borrar las subcarpetas solamente se borran los archivos de la carpeta elegida y posteriormente se intenta borrar la carpeta, pero si existen subcarpetas está nunca se conseguirá eliminar (ya que hay subcarpetas dentro) y la funcion devolverá un valor distinto de 0. Weno hice dos funciones, una usando las APIs y otra usando las funciones de VB: Código
Código
Son codes sencillos pero espero que les sirvan a alguien. :xD Saludos ;) Título: Re: [Source] Eliminar carpetas, subcarpetas y archivos Publicado por: ~~ en 15 Febrero 2008, 11:42 am Vaya racha de sources xDD te ls pongo en la biblioteca todos ;)
Título: Re: [Source] Eliminar carpetas, subcarpetas y archivos Publicado por: Chefito en 15 Febrero 2008, 12:56 pm Gran trabajo nhaalclkiemr. Solo una puntualización,¿IsDir() es una función creada por ti?....como no la has puesto ;).
Sería por ejemplo algo asi no? Código: Public Function IsDir(Directorio as string) as boolean Saludos. Título: Re: [Source] Eliminar carpetas, subcarpetas y archivos Publicado por: Chefito en 15 Febrero 2008, 13:34 pm Por cierto, otra forma de borrarlos:
Código: Private Function BorrarDirectorio(Directorio As String) As Boolean Saludos. P.D. Esto se carga el directorio con todo su contenido dentro. Para hacerlo igual que nhaalclkiemr, tendríamos que currarnoslo más, y no tengo ganas ;). A ver si alguien se anima. Por cierto........no sobrevivió el comando deltree de msdos? |