home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / lib / PowerD / FileLength.d < prev    next >
Encoding:
Text File  |  1999-09-21  |  254 b   |  16 lines
  1. OPT    OBJECT,NOSTD,NOHEAD
  2.  
  3. MODULE    'dos','dos/dos'
  4.  
  5. EDEF    DOSBase
  6.  
  7. PROC FileLength(name:PTR TO CHAR)(LONG)
  8.     DEF lock:BPTR,fib:FileInfoBlock,l=TRUE
  9.     IF lock:=Lock(name,ACCESS_READ)
  10.         IF Examine(lock,fib)
  11.             l:=fib.Size
  12.         ENDIF
  13.         UnLock(lock)
  14.     ENDIF
  15. ENDPROC l
  16.