From: dave@powerbasic.com (Dave Navarro)
Subject: PBDLL5: FileSize
 
'=============================================================================
=
'
' FileSize for PB/DLL 5.0
' Copyright (c) 1998 by PowerBASIC, Inc.
'
'=============================================================================
=
 
$COMPILE EXE
$INCLUDE "WIN32API.INC"
 
FUNCTION FileSize(BYVAL f AS STRING) AS LONG
 
  LOCAL FindData AS WIN32_FIND_DATA
  LOCAL hDir AS LONG
 
  hDir = FindFirstFile(BYVAL STRPTR(f), FindData)
 
  IF hDir = %INVALID_HANDLE_VALUE THEN
    FUNCTION = -1
    EXIT FUNCTION
  END IF
 
  FindClose hDir
 
  FUNCTION = FindData.nFileSizeLow
 
END FUNCTION
 
 
FUNCTION WinMain (BYVAL CurInst&, _
                  BYVAL PrvInst&, _
                  CmdLine AS ASCIIZ PTR, _
                  BYVAL CmdShow&) EXPORT AS LONG
 
  MsgBox STR$(FileSize("C:\AUTOEXEC.BAT"))
 
END FUNCTION
 
*** QwkNews (tm) v2.1
 * [TN11.1] Internet Newsgroup: alt.lang.powerbasic
--- GEcho 1.20/Pro
---------------