//------------------------------------------------------------------->
// WinFileSize.pkg
//
//  Use to determine file size of any DOS file
//  Requires vWin32fh.pkg from vdf-Guidance
//------------------------------------------------------------------->

Use vWin32fh.pkg

Function vWin32_APIFileSize Global string sFileName returns integer
     dWord dwFileSizeHigh dwFileSizeLow
     integer iFileSize iVoid
     handle hFindFile
     pointer lpsFilePath lpsWin32FindData
     string sWin32FindData

     GetAddress of sFileName to lpsFilePath

     ZeroType vWin32_Find_Data to sWin32FindData
     GetAddress of sWin32FindData to lpsWin32FindData

     move (vWin32_FindFirstFile (lpsFilePath, lpsWin32FindData)) to hFindFile
     if (hFindFile<>vINVALID_HANDLE_VALUE) begin
         GetBuff From sWin32FindData At vWin32_Find_Data.nFileSizeHigh To dwFileSizeHigh
         GetBuff From sWin32FindData At vWin32_Find_Data.nFileSizeLow To dwFileSizeLow
     end
     move (vWin32_FindClose (hFindFile)) to iVoid

     moveInt ((dwFileSizeHigh * vMaxDword) + dwFileSizeLow) to iFileSize

     function_return iFileSize
End_Function  // vWin32_APIFileSize