Ejemplo de DFree

En mi programa Taller2015 uso un pendrive viejo de 512 megas jajaja, si si es reviejo pero lo uso para los respaldos automáticos del programa y me di cuenta de que era necesario saber cuanto espacio libre quedaba.
Y buscando en gambas encontré el comando DFree perteneciente al grupo Funciones para Archivos y Carpetas , aquí les dejo un ejemplo muy parecido de como lo utilice.

' gambas class file

'Usando DFree by postapase

Public Sub Form_Open()

Me.Title = Application.Name
TextBox1.Text = User.Home
EspacioDisponible(User.Home)

End

Public Sub Button1_Click()

Dialog.Path = User.Home 'Asigna la ruta predeterminada de dialog cuando se abre)

If Dialog.SelectDirectory() Then Return ' si no se selecciona un directorio dialog devuelve true y retorna
' no haciendo nada y no ejecutando las lineas siguientes. (

TextBox1.Text = Dialog.Path 'pega la ruta elegida en textbox1

EspacioDisponible(Dialog.Path) ' llama a la subrutina EspacioDisponible

End


Public Sub EspacioDisponible(dir As String)

TextLabel1.Text = "Espacio disponible: <b>" & Format$(CString(Dfree(dir) / 1000000), "#.#") & " MB</b>"

'dfree retorna un integer en bytes y para saber los MegaBytes dividimos en 1000000
'cstring convierte el intenger en string para poder concatenarlo con el texto y no de error
'format$ le damos un forma de visualizar el resultado a nuestro gusto en este caso yo elegi "#.#"
'que mostrara todos los numeros a la izquierda y solo una cifra a la derecha

End

Descargar código fuente:
https://www.dropbox.com/s/duqudql1xh6da8m/Usando-DFree-0.0.1.tar.gz?dl=0

Asi se ve en el programa Taller2015