ＶＢ６でＭＤＥファイルを最適化するには？ (ID:105744)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自分はいつもこんな感じでやってます。 （HELP等調べれば分かる程度のことしかやってませんが ＾＾；） 参考になれば。。。 ちなみに下記ソースではDAOへの参照設定が必要です。念のため。 ------------------------------ Screen.MousePointer = vbHourglass '対象ＭＤＢのバックアップコピー FileCopy "db1.MDB", "db1_BAK.MDB" '最適化の為旧ＭＤＢを削除 If Dir("db1.MDB") <> vbNullString Then Kill "db1.MDB" End If 'ＭＤＢ最適化 DBEngine.CompactDatabase "db1_BAK.MDB", "db1.mdb" Screen.MousePointer = vbDefault MsgBox "最適化が完了しました。" ------------------------------