Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24478 / 76732 ←次へ | 前へ→

【57602】Re:ファイルサイズ(2GB以上)の取得方法について
発言  りん E-MAIL  - 08/9/4(木) 7:15 -

引用なし
パスワード
   はる。 さん、おはようございます。

>ファイルサイズ(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

0 hits

【57597】ファイルサイズ(2GB以上)の取得方法について はる。 08/9/3(水) 22:06 質問
【57602】Re:ファイルサイズ(2GB以上)の取得方法に... りん 08/9/4(木) 7:15 発言
【57605】Re:ファイルサイズ(2GB以上)の取得方法に... はる。 08/9/4(木) 14:04 お礼

24478 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free