Spanish Eliminar ficheros y subdirectorios

Jo Tofer

New Member
Licensed User
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

Well-Known Member
Licensed User
Longtime User
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:

B4X:
' 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
 
Top