次のようなMSAccessのコマンドライン呼び出しがあります。
%Programfiles%\Office11\msaccess.exe
「Office11」の部分を削除して、インストールされているMS Accessのバージョンに関係なく、結果の呼び出しが実行されるようにするにはどうすればよいですか。これをコマンドラインで実行する必要があるため、[スタート]>[実行]ダイアログを使用するオプションは適用されません。
次のようなMSAccessのコマンドライン呼び出しがあります。
%Programfiles%\Office11\msaccess.exe
「Office11」の部分を削除して、インストールされているMS Accessのバージョンに関係なく、結果の呼び出しが実行されるようにするにはどうすればよいですか。これをコマンドラインで実行する必要があるため、[スタート]>[実行]ダイアログを使用するオプションは適用されません。
ネイティブの MS Access 機能を使用してこれを行う場合:
SysCmd(acSysCmdAccessDir)
レジストリを読み取って、MSACCESS.EXEが配置されているフォルダを見つけることができます。これがVBScriptの例です。
Option Explicit
Dim MSAccPath
Dim RegKey
Dim WSHShell
RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" _
& "CurrentVersion\App Paths\MSACCESS.EXE\Path"
Set WSHShell = WScript.CreateObject("WScript.Shell")
MSAccPath = WSHShell.RegRead(RegKey)
WScript.Echo "MS Access Path: " & MSAccPath & "MSACCESS.EXE"
Set WSHShell = Nothing