Power Builder - tamaño de la BD

Hola , estoy haciendo una aplicacion, en la cual debo enviar un mensaje cuando la Bd este a punto de llenarse.

OK. Alguien puede decirme si hay alguna instruccion o sentencia en pb q me diga cuanto espacio he ocupado en la BD.

O algo que me sirva??

Gracias !!!!!!!!!!

salu2

Para averiguar el tamaño (en bytes) de cualquier archivo existen dos métodos.

* Con la función FileLength de PB:
No estoy seguro si esta función está implementada a partir de PB 8 adelante.

Ejemplo:
long ll_FileSize
string ls_file

ls_file = 'C:\midatabase.db'

ll_FileSize = FileLength(ls_file)
messagebox("Tamaño de " + ls_File, ll_FileSize)

* Con APIs:
1. Declaras las siguientes Local External Functions:

function long GetFileSize(long hFile, Ref long lpdwFileSizeHigh) Library "Kernel32.dll"
function long _lopen(ref string lsFile, long fnMode) library 'kernel32.dll'
function long _lclose(long hFile) library 'kernel32.dll'

2. Script en PB:
long ll_FileSize
long ll_hFile
long ll_null

string ls_file = 'C:\midatabase.db'

ll_hFile = _lopen(ls_File,0)
if ll_hFile > 0 then
ll_FileSize = GetFileSize( ll_hFile, ll_Null )
messagebox("Tamaño de " + ls_File, ll_FileSize)
_lclose(ll_hFile)
end if