SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Gerard en Lunes 17 de Marzo de 2003, 18:59
-
Bien, estoy buscando el codigo de eliminar una carpeta y todo su contenido. Para hacerlo, me gustaria que si esa se elimina no se pudiera recuperar, y que si al eliminar te da algun mensaje de si quieres o no, que ese mensaje no saliera. O sea, eliminar por siempre.
Un saludo, gracias :adios:
-
Añade la siguiente referencia a tu proyecto:
Microsoft Scripting library
y luego pon este código donde quieras borrar la carpeta y todo su contenido:
Dim objFile As Object
Set objFile = CreateObject("Scripting.FileSystemObject")
'Se comprueba si existe la carpeta
If objFile.FolderExists (ruta_carpeta_eliminar) = True Then
'Se elimina la carpeta y todo su contenido, incluyendo ficheros de sólo lectura
objFile.DeleteFolder (ruta_carpeta_eliminar, True)
End If
El true es para forzar que borre también los ficheros que contenga de solo lectura.
Espero que te sirva.
Para cualquier duda consultamelo.
Saludos,
Roberto García
-
Gracias por tu ayuda! :gracias:
:adios: