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...

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

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

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"

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...