Comunidad Gambas-es

Como puedo hacer un código que elimine un directorio que está lleno. He estado pensando y buscando en Google, pero para evitar macanas prefiero consultarlo a los que saben. Gracias por su ayuda.

drjuano:
Este código te puede valer...

Eso es lo mismo que había pensado, pero hay que hacer la función recursiva porque bajo el directorio a borrar puede haber más directorios y subdirectorios. Hay que usar las instrucciones RDir para listar contenido de directorios y RMDir para borrar directorios vacíos.

La opción cutre es hacer un shell con rm -rf pero mucho cuidadín con eso...

Saludos

Esta función te copia un directorio a otro lugar de forma recursiva. No es lo que pides, pero con la misma lógica no te puede costar mucho el adaptarlo al borrado:

Puedes usar este modulo que es parte de un proyecto mio. Tiene detección de errores y es realmente fácil de usar, Cleaner.Clean(path).

Espero que te sirva!

Guapo ese "Mundus", Sebikul.

shordi escribió: [Ver mensaje]

Guapo ese "Mundus", Sebikul.

Gracias! Creció mucho mas de lo que esperaba, aunque ahora no esta muy activo. No he conseguido gente que se involucre, y la verdad es que estar viendo aplicación por aplicación donde se guardan los archivos no es fácil. Gracias a este proyecto aprendí mucho de lo que se ahora sobre gambas y empaquetado en Debian.

Gracias por la data. Voy a probar algunos codigos.

shordi escribió: [Ver mensaje]

Esta función te copia un directorio a otro lugar de forma recursiva. No es lo que pides, pero con la misma lógica no te puede costar mucho el adaptarlo al borrado:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub copia_dir(path_origen As String, path_destino As String, Optional tipo As String)

Dim arDir As String[]
Dim arFile As String[]
Dim nombredir, nombrefile As String
Dim nombresolo As String
Dim n As Integer

If Not tipo Then tipo = "*"

If Not Exist(path_destino) Then
Mkdir path_destino
Endif
arfile = Dir(path_origen, tipo, gb.file) 'extraemos los ficheros
For Each nombrefile In arfile 'los copiamos
Try Copy path_origen &/ nombrefile To path_destino &/ nombrefile
Next

n = InStr(path_origen, "/")
If n > 0 Then
nombresolo = Right(path_origen, - n + 1)
Else
nombresolo = path_origen
Endif
ardir = Dir(path_origen, "*", gb.Directory)
For Each nombredir In arDir 'extraemos los subdirectorios
copia_dir(path_origen &/ nombredir, path_destino &/ nombredir) 'usamos la recursividad
Next

End

Éste código me ha servido. Después de mucho tiempo lo estoy analizando (no es fácil para mi ). No comprendo bien la parte dónde se define la variable nombresolo. La variable no se usa en ninguna parte, podrías hechar un poco de luz al caso? Gracias!

Citar:

Éste código me ha servido. Después de mucho tiempo lo estoy analizando (no es fácil para mi ). No comprendo bien la parte dónde se define la variable nombresolo. La variable no se usa en ninguna parte, podrías hechar un poco de luz al caso? Gracias!

Código fósil. Es lo que tiene esto del copiar y pegar. La función original de la que extraje ese código hacía más cosas que no venían al caso. Al quitarlas se me coló lo del nombresolo. Puedes borrarlo sin problemas.
Pido disculpas por el despiste...