\' Gambas module file
Public Sub vaciarDirectorio(ruta As String, Optional patron As String) \'\'Borrar contenido de un directorio dado un patron de borrado
\'borrado si existe la ruta
Dim file As String
If patron = "" Then patron = "*"
If Exist(ruta) Then
For Each File In Dir(ruta & "/", patron)
Try Kill ruta & "/" & file
Next
Endif
Catch
Message.Error(("Error al intentar borrar el directorio: ") & ruta)
End