| Pregunta: | 41936 - BORRAR DIRECTORIOS RECURSIVAMENTE (DELTREE) |
| Autor: | Emiliano C |
| Cómo puedo borrar directorios en forma recursiva y con búsqueda?
Ej:Tengo el siguiente arbol raiz | |___borrar | |____arc1 | |___dir2 |_____arch2 |______borrar Y quiero borrar todos los directorios "borrar" con sus contenidos. Sería como hacer un deltree, pasándole como entrada dir borrar /s /ad Gracias | |
| Respuesta: | Agustín Dávila |
| Utiliza este procedimiento que aquí te escribo:
Private Sub Borrar_Carpeta(Ruta As String) On Error GoTo erro1 Dim a As String a = MsgBox("¿ Está seguro que desea borrar esta carpeta ?", vbQuestion + vbYesNo) If a = vbYes Then Set fs = CreateObject("Scripting.FileSystemObject") fs.deletefolder (Ruta) End If Exit Sub erro1: MsgBox Err.Description, vbCritical End Sub | |