エクセル以外のファイルサイズを取得するには？

質問

例えば画像ファイルのサイズを取得しようとしているのですが

Sub ファイルサイズ取得()
Dim MyFileName As String
MyFileName = "D:\My Documents\My Pictures\画像.bmp"
Debug.Print FileLen(MyFileName)
End Sub

これではダメでした。

Sub ファイルサイズ取得()
Dim MyFileName As String
MyFileName = "D:\My Documents\My Pictures\画像.bmp"
Debug.Print CreateObject("scripting.filesystemobject").GetFolder(MyFileName).Size
End Sub

これもダメでした。フォルダならいけるのですが。

テキストや画像ファイルなどエクセルファイル以外のサイズを取得する方法を教えてくださいませ。

オフィス２００３です。

回答No.1

keithin · ベストアンサー

ご質問で掲示されたマクロ、FileLenで問題なく取れます。
落ち着いて、データが正しいことを確認しながらもう一回やりなおしてみてください。

＞これではダメでした。

何がどうダメだったのでしょう。
例えば「ファイルが見つかりません」とかなら、myfilenameにセットしたパスやファイル名が間違っていたという事になりますし。

お礼

エラー内容も書くべきでしたね。
失礼しました。
本日実行してみたら、
FileLen(MyFileName)で問題なくファイルサイズが
取得できました。
多分昨日実行した時はパスが間違ってたのかと思います。

ちなみにFSOの方も、
GetFolderから
Debug.Print CreateObject("scripting.filesystemobject").GetFile(MyFileName).Size
に変えたら出来ました。