'===========================================================================
' Subject: GET SIZE OF FILE                   Date: 01-20-98 (12:14)       
'  Author: Dave Navarro, Jr.                  Code: PBDLL                  
'  Origin: dave@powerbasic.com              Packet: PBDLL.ABC
'===========================================================================
'==============================================================================
'
' 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