Visual Basic - Eliminar un directorio y todo su contenido
Códigos Visual Basic
Para borrar un directorio con todo su contenido podemos aplicar este codigo.
Simplemente debemos modificar la linea 2 con el nombre y parth del directorio, y todo el contenido será eliminado.
En el ejemplo el directorio será eliminado a la carga del formulario, por lo que debes tener cuidado :-) del directorio que indicas.
strFile = Dir$(strDir & "*.*", vbSystem Or vbDirectory Or vbHidden)
DoWhile Len(strFile)
If strFile <> "."And strFile <> ".."Then
intAttr = GetAttr(strDir & "" & strFile)
If (intAttr And vbDirectory) Then
strAllDirs = strAllDirs & strFile & Chr$(0)
Else
If intAttr <> vbNormal Then
SetAttr strDir & "" & strFile, vbNormal
If Err Then DelTree = Err: ExitFunction
EndIf
Kill strDir & "" & strFile
If Err Then DelTree = Err: ExitFunction
EndIf
EndIf
strFile = Dir$
Loop
DoWhile Len(strAllDirs)
x = InStr(strAllDirs, Chr$(0))
strFile = Left$(strAllDirs, x - 1)
strAllDirs = Mid$(strAllDirs, x + 1)
x = DelTree(strDir & "" & strFile)
If x Then DelTree = x: ExitFunction
Loop
RmDir strDir
If Err Then
DelTree = Err
Else
DelTree = 0
EndIf
EndFunction
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Eliminar un directorio y todo su contenido" href="http://www.tutores.org/codigo/1062/" target="_blank">Eliminar un directorio y todo su contenido</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
camilocamilo
15
hola quisiera saber si en el momento de ejecutar solamente la ruta c:
borra todo el contenido en c
thakns
escribir a aeruials182@hotmail.com
Comentario usuario
camilocamilo
45
escribir a aerials1822000@hotmail.com
quedo mal escrito el correop anteriormente
gracias