ファイルサイズの表示(VB)

キーワード:

CreateFile, GetFileSize, CloseHandle

サンプルコード:

' ファイルサイズを表示(2^31まで正しく表示される)
Public Sub DispFileSize()
	Dim hFile As Long
	Dim FileSizeLow As Long
	Dim FileSizeHigh As Long

	'ファイルのオープン
	hFile = CreateFile("c:\command.com", 0, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)

	'ファイルサイズの取得
	FileSizeLow = GetFileSize(hFile, FileSizeHigh)

	'ファイルサイズの表示
	MsgBox "ファイルサイズ: " & FileSizeHigh & "*2^32 + " & FileSizeLow

	'ファイルのクローズ
	CloseHandle hFile
End Sub

(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。