VBScript : 古い Access2003 までのデータベース作成と新しい Access2007 以降のデータベース作成

古いアプリケーションは、Microsoft.Jet.OLEDB.4.0 を使っているはずなので、作成時も同じプロバイダで作成する必要があります。新しいアプリケーションは、古いタイプでもアクセスできると思いますが、厳密に新しいタイプで作成するには、Microsoft.ACE.OLEDB.12.0 を使用します

▼ 参考資料
ダウンロード詳細 2007 Office system ドライバ: データ接続コンポーネント
ダウンロード詳細 Microsoft Access データベース エンジン 2010 再頒布可能コンポーネント

Dim Fso,obj,strCurPath,FileName

' ファイルシステムオブジェクト
Set Fso = CreateObject( "Scripting.FileSystemObject" )

' 現在実行されているスクリプトのフルパス
strCurPath = WScript.ScriptFullName

' ファイルオブジェクトを作成
Set obj = Fso.GetFile( strCurPath )

' ファイルオブジェクトが存在するフォルダオブジェクト
Set obj = obj.ParentFolder

' そのフォルダのフルパス
strCurPath = obj.Path


' 古い Access2003 までのデータベースを作成
FileName = "Access2003.mdb"

Set Adox = CreateObject( "ADOX.Catalog" )

on error resume next
Adox.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=" & strCurPath & "\" & FileName & ";"
on error goto 0


' 新しい Access2007 以降のデータベースを作成
FileName = "Access2007.accdb"

on error resume next
Adox.Create "Provider=Microsoft.ACE.OLEDB.12.0;" & _
	"Data Source=" & strCurPath & "\" & FileName & ";"
on error goto 0

VBS + ADO

VBScript : Oracle Database Express Edition 11g Release 2 に MDB(販売管理C) のデータをインポートする

VBScript : PostgreSQL(9.3.4) に MDB(販売管理C) のデータをインポートする

VBscript : 新しい Mictrosoft Access(2007以降)へ、古い MDB からデータを移行する

VBScript : ADO で Excel2007(Excel 2010、Excel 2013) にアクセスする( シートをテーブルとして読み込む )

VBScript : Micrsoft Access 経由で、SQLServer のテーブルのデータを Excel にエクスポートする方法

VBScript : ADO を使用して、MDB(Access2003) のデータを SQLite ODBC Driver で sqlite3(UTF-8) を作成

VBScript +ADO / MDB から SQLite3 へ ODBC ドライバを使ってフィールドオブジェクトを使用した同一フォーマットのテーブル間のデータコピー(データベースは自動的に作成されます)

VBScript : ADO経由の一時PL/SQL でエクスポートを実行する(Data Pump Export)