VBScriptでAccess (Accdb) ファイルの修復と最適化をする

Question

VBSでAccdbファイルを最適化と修復するファイルを作っています。
フォルダのドラッグ＆ドロップとAccdbファイルのリスト化までは
うまくいくのですが、最適化がうまくいきません。
どのようにすればよいでしょうか。
Accessは2013、DAO3.6です。
よろしくお願いします。

' ドラッグ&ドロップしたフォルダ内にあるAccdbファイルの最適化を実行するスクリプト
' Accdbファイルが入ったフォルダをスクリプトにドラッグ&ドロップして実行
Option Explicit

Dim Excel
Set Excel = WScript.CreateObject("Excel.Application")


' ArrayList作成
Dim ary
Set ary = CreateObject("System.Collections.ArrayList")

Dim Args
Set Args = WScript.Arguments

'パラメータ数チェック
If Args.Count < 1 Then
  WScript.Echo "当スクリプトにフォルダをドラッグ&ドロップして処理を実行してください。"
  WScript.Quit
End If

'フォルダ判別
With CreateObject("Scripting.FileSystemObject")
  If .FolderExists(Args(0)) = False Then
    WScript.Echo "フォルダが見つかりません。" & vbCrLf & "あるいはフォルダではありません。"
    WScript.Quit
  End If
End With

'Excelファイルの有無チェック
If IsExistsParticularFile(Args(0), "accdb") = False Then
  WScript.Echo "指定したフォルダ内にxlsmファイルが見つかりませんでした。"
  WScript.Quit
End If


Dim item
Dim DBE2
Set DBE2 = CreateObject("DAO.DBEngine.120")

For Each item In ary
  DBE2.CompactDatabase item, "new" & item ★★★ エラー行 ★★★
Next
Call MsgBox("Optimization complete.", vbInformation)


Private Function IsExistsParticularFile(ByVal FolderPath, ByVal FileExtension)
'指定したフォルダ内に特定の拡張子のファイルがあるかを調べる
  Dim ret
  Dim f
 
  ret = False '初期化
  With CreateObject("Scripting.FileSystemObject")
    For Each f In .GetFolder(FolderPath).Files
      Select Case LCase(.GetExtensionName(f))
        Case LCase(FileExtension)
          ret = True
          ary.add .GetFile(f).Path
          Exit For
      End Select
    Next
  End With
  IsExistsParticularFile = ret
End Function

参考にしたURL
https://answers.microsoft.com/ja-jp/msoffice/forum/all/vba%E3%81%AE%E3%82%B3%E3%83%B3%E3%83%91%E3%82%A4/f49e8ed9-fc2a-4425-ada3-812461455ec2

https://www.excel-pitin.net/single-post/2019/04/12/access%E3%82%84access-runtime%E3%82%92%E4%BD%BF%E3%82%8F%E3%81%9A%E3%81%ABmdb%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%80%81accdb%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E6%9C%80%E9%81%A9%E5%8C%96%E3%81%99%E3%82%8B

エラーメッセージ

Windows Script Host

スクリプト:C:\Users(ユーザー名)\Desktop\aaaa.vbs
行: 42
文字: 3
エラー:Not a valid file name.
コード:800A0BEF
ソース:DAO.DbEngine

Answer 1

DAO3.6ではRepairDatabaseメソッドは使用できなくなったそうです。

注 RepairDatabaseメソッドは使用できなくなりましたが、下位互換性のためにリストされています。代わりにCompactDatabaseメソッドを使用してください。

https://documentation.help/DAO360/damthrepairdatabase.htm

Comments

[mnbwqz]

ありがとうございます。
RepairDatabase を削除しましたが、再度エラーがでました。

[RiaFeed]

その使い方だとitemにはフルパスが入っているので頭にnewを付けるとnewC:\～となって存在しないパスを指していることになっているからじゃないでしょうか？

[mnbwqz]

その通りでした。
ありがとうございます。