14 de junio de 2004

Obtener el tamaño de un archivo o serie de archivos

Una función para calcular el tamaño de un archivo...
****************************************************************
* Function FileSize
* Purpose: Get the FileSize (in bytes) of a single or multiple file
* Use: ?FileSize("miArchivo.txt") or ?FileSize("*.txt")
****************************************************************

FUNCTION FileSize
LPARAMETERS tcFile

LOCAL lnFileSize
lnFileSize = 0

FOR lnCounter=1 TO ADIR(laFile,tcFile)
   lnFileSize = lnFileSize+ laFile[2]  
ENDFOR

RETURN lnFileSize
ENDFUNC

Espartaco Palma Martínez

No hay comentarios. :

Publicar un comentario