Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Visual Basic
Code

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.
Visitas: 24,239 - 08/05/2004 22:10:28
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. Private Sub Form_Load()
  2. x = DelTree("C:midirectorio")
  3. Select Case x
  4. Case 0: MsgBox "Eliminado"
  5. Case -1: MsgBox "Directorio invalido"
  6. Case Else: MsgBox "Ha ocurrido un error"
  7. End Select
  8. End Sub
  9.  
  10. Function DelTree(ByVal strDir As String) As Long
  11. Dim x As Long
  12. Dim intAttr As Integer
  13. Dim strAllDirs As String
  14. Dim strFile As String
  15. DelTree = -1
  16. On Error Resume Next
  17. strDir = Trim$(strDir)
  18. If Len(strDir) = 0 Then Exit Function
  19. If Right$(strDir, 1) = "" Then strDir = Left$(strDir, Len(strDir) - 1)
  20. If InStr(strDir, "") = 0 Then Exit Function
  21. intAttr = GetAttr(strDir)
  22. If (intAttr And vbDirectory) = 0 Then Exit Function
  23. strFile = Dir$(strDir & "*.*", vbSystem Or vbDirectory Or vbHidden)
  24. Do While Len(strFile)
  25. If strFile <> "." And strFile <> ".." Then
  26.   intAttr = GetAttr(strDir & "" & strFile)
  27.   If (intAttr And vbDirectory) Then
  28.    strAllDirs = strAllDirs & strFile & Chr$(0)
  29.   Else
  30.    If intAttr <> vbNormal Then
  31.     SetAttr strDir & "" & strFile, vbNormal
  32.     If Err Then DelTree = Err: Exit Function
  33.    End If
  34.    Kill strDir & "" & strFile
  35.    If Err Then DelTree = Err: Exit Function
  36.   End If
  37. End If
  38. strFile = Dir$
  39. Loop
  40. Do While Len(strAllDirs)
  41. x = InStr(strAllDirs, Chr$(0))
  42. strFile = Left$(strAllDirs, x - 1)
  43. strAllDirs = Mid$(strAllDirs, x + 1)
  44. x = DelTree(strDir & "" & strFile)
  45. If x Then DelTree = x: Exit Function
  46. Loop
  47. RmDir strDir
  48. If Err Then
  49. DelTree = Err
  50. Else
  51. DelTree = 0
  52. End If
  53. End Function



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
camilo
4 5
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
camilo
2 5
escribir a aerials1822000@hotmail.com
quedo mal escrito el correop anteriormente
gracias
Comentario usuario
01/05/2004 16.50.01
4 5
Siento decirlo, pero no me funciona este código.
Nose que puede pasar. Me dice que en la línea 10 falta un ')'.

Gracias por la ayuda.
Comentario usuario
09-05-2008 21:58:51
3 5
tengo VB 6 portable y me funciono muy bien, hice una prueba justo al teminar la descarga
Comentario usuario
lol
3 5
Carlo si te falata ')' es por que debes finalizar la expresio con ese simbolo :D
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad

Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado
Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.