|
はる。 さん、おはようございます。
>ファイルサイズ(2GB以上)を取得をしたいのですが、
>FILELEN関数を使用すると、戻り値がLONG型ですので、
>正しい数値が取得できません。
>他に取得できる方法があればご伝授いただけませんか?
FileSystemObjectのSizeで取得できませんか?
2Gを超えるファイルは持っていないので試せていませんが、2Gを超えるフォルダは取得できました。
以下、ヘルプ(XL2003、FileSystemObject)のサンプルを改造したもの。
Sub ShowFileSize()
Dim fs As Object, f As Object, filespec As String
'読み込むファイル名
filespec = "D:\VIDEO_TS\VTS_02_1.VOB"
'FSO
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
'結果
MsgBox Format(f.Size, "#,###0") & " byte", vbInformation, filespec
'終了
Set f = Nothing: Set fs = Nothing
End Sub
こんな感じです。
FSOの使い方に関しては、田中さんのところにヘルプよりもわかりやすい説明がありますのでご一読ください。
htt p://officetanaka.net/excel/vba/filesystemobject/index.htm
|
|