ファイル容量が多いと時間がかかる

質問

Sub フォルダのサイズを取得する()
MsgBox CreateObject("scripting.filesystemobject").GetFolder("D:\フォルダ名").Size
End Sub

このコードでフォルダのサイズを取得していますが
サイズが１８ＧＢ位あると、ものすごくVBA事態も遅くなるのですがただ値を引っ張るコードじゃないのでしょうか？
ファイルの容量が多いほどコードも遅くなってしまうのでしょうか？

回答No.1

nicotinism · ベストアンサー

こちらで試した限りでは
Windows７ + Excel2010
WindowsXP + Excel2002
のイミディエイトウィンドウでの確認です。
Windows7 では瞬時、XPでも１秒とはかかりませんでした。
フォルダA フォルダサイズ 267GB サブフォルダ数3 ファイル数311
フォルダB フォルダサイズ 28GB サブフォルダ数912 ファイル数7515

エクスプローラでフォルダを右クリックするとプロパティで確認できますが
こちらでの反応はどうですか？
こちらも時間が掛かるとなると問題は別の所に潜んでいるかも？
セキュリティ対策ソフトが足を引っ張っている
ディスクに異常が発生している
など。

お礼

検証頂きありがとうございます。
説明不足でしたが当方の環境はWINXP+2003です。

右クリックは問題なくすぐに表示できるのです。
他の要因ありがとうございます。
確認してみます。