Access2003VBA・MDBファイルの容量をVBAで知りたいです。

質問

Access2003VBAで質問です。

(1)VBA実行中（自分自身）のMDBファイルの容量を、VBAで知ることはできますか？
CSVファイルを読み込む処理ですが、１．９ギガくらいで、処理をとめたいのです。

(2)VBA実行中（自分自身）のMDBファイルのディレクトリを取得する方法を教えて下さい。

(3)自分自身のMDBファイルは、最適化できませんよね。
DAOで、閉じてるMDBファイルをコピーするしかないのかな？

回答No.1

nicotinism · ベストアンサー

１）＆２）
Sub Test()
　　Dim FS As Object
　　Set FS = CreateObject("Scripting.FileSystemObject")
　　Debug.Print "size=" & FS.getfile(CurrentProject.FullName).Size
　　Debug.Print "path=" & CurrentProject.Path, "name=" & CurrentProject.Name
　　Set FS = Nothing
End Sub

３）
自身を最適化する方法は色々な方が考えられています
ペン萩 さん
http://www.penhagi.com/access/tips/27_saiteki.htm
YU-TANG さん
http://x7net.com/~access/AcTipsGnrlHowToCompactCurrentMDB.html

お礼

助かりました