VBのランタイムエラーについて
MDBファイルのバックアップの処理を毎日タスクで流すためにVBでEXEを作ったのですがエラーが発生しました。
ランタイムエラーのようですがMDBファイルの最適化の処理を追加する前は正常に動作していました。。。
エラー内容は run-time error'13' type mismatch です。
なにかランタイムをインストール必要があるのでしょうか?
DBEngine.CompactDatabaseを使っているので参照設定で
microsoft dao3.6 object libraryを追加してからおかしいようです。
お知恵をお貸しください><
'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
'_/ MDBファイル最適化 _/
'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
defrg = INIfile_read("PATH", "defrag")
filename = "abc.mdb"
TempFile = Left(filename, Len(filename) - 3) & "bak" 'バックアップ名を作成
DBEngine.CompactDatabase defrg & "\" & filename, defrg & "\" & TempFile '最適化
Kill defrg & "\" & filename
filename = Left(TempFile, Len(TempFile) - 3) & "mdb"
Name defrg & "\" & TempFile As defrg & "\" & filename