Spanish Eliminar ficheros y subdirectorios

[Jo Tofer]

Hola.

Por favor, ¿alguien podría decirme como puedo hacer un método que, recibiendo un directorio como parámetro, elimine todo su contenido incluyendo ficheros y subdirectorios?

Muchas gracias.

 

[bgsoft]

Hola

Puede que mi respuesta sea muy obvia, pero no se hasta que punto estas familiarizado con B4A, asi que para borrar lo que pides en terminos generales:

' poner los ficheros y directorios en un list (por ejemplo)
dim Files as List
Files.Initialize
Files = File.ListFiles(Directorio) 

' Borrar un fichero
File.Delete(Dir,NombreFichero)

' saber si es directorio
if File.IsDirectory(Dir, Nombre) then 

' Borrar un directorio
File.Delete(Dir,NombreDirectorio)

Tienes que tener en cuenta que antes de borrar un directorio este tiene que estar vacio. Y tambien poner un control de errores para que no se salga del programa.

No se si pedias esto o un sub con el código ya echo, si es así yo no lo tengo, lo tendria que hacer, quizas una forma de no hacer mucho código seria hacerla recursiva.

Saludos