Programación General > Visual Basic 6.0 e inferiores

 Re: Sobre eliminar carpetas

(1/1)

Gerard:
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:

ROBER.29:
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

Gerard:
Gracias por tu ayuda! :gracias:
:adios:

Navegación

[0] Índice de Mensajes