| ■ GetFileSize |
| ファイルハンドルで指定したファイルのファイルサイズを取得します |
| CreateFile を使用して、あらかじめファイルハンドルを取得しておきます |
| 取得したファイルサイズはバイト単位 （Long 型 ）です |
| ２番目の引数 lpFileSizeHigh の使用方法は不明で、どんな値 （1000,1,0,-1 ）を設定していても、結果は同じでした |
'------------------------------------------------------------------------------
' ファイルサイズ取得（宣言）
'------------------------------------------------------------------------------
Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, _
lpFileSizeHigh As Long) As Long
Dim w_hfil As Long ' ファイルハンドル
Dim w_filesize As Long ' ファイルサイズ
' ファイルのサイズを取得する
w_filesize = GetFileSize(w_hfil, 0)
|