DIM nSIZE&&
  DIM sFILE AS STRING
  DIM F AS INTEGER
 
  sFILE="c:\temp\bigfile.exe"
 
  F = FREEFILE
  OPEN sFILE FOR BINARY AS #F
  nSIZE = LOF(F)
  CLOSE #F
 
  MSGBOX FORMAT$(nSIZE, "0")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de