Windows脚本：获取MS Access的默认选项

正在尝试查找Access的对象属性以获取默认文件位置，以便编写更新脚本。 示例：它从Word中获取内容，并告诉我用户文件和模板路径指向何处

Const wdDocumentsPath = 0
Const wdWorkgroupTemplatesPath = 3
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Wscript.Echo "Word Documents Path: " & _
    objOptions.DefaultFilePath(wdDocumentsPath)
Wscript.Echo "Word Workgroup Templates Path: " & _
    objOptions.DefaultFilePath(wdWorkgroupTemplatesPath)
objWord.Quit

---

尝试对Access执行类似的操作

嗯。。。使用TLViewer快速浏览

C:\Program Files\Microsoft Office\Office10\MSACC.OLB

（我使用的是旧版本的访问）

Property Path As String [Get/o]
  member of Access.CodeProject

Property Path As String [Get/o]
  member of Access.CurrentProject

Property FullPath As String [Get/o]
  member of Access.Reference

---

我不知道这些是否有用——我不太熟悉Access。

有两种方法可以做到这一点。您可以按照建议获取Access对象并使用它：

Dim objAcc     
Set objAcc = CreateObject("Access.Application")
objAcc.SetOption "Default Database Directory", "C:\Test"
objAcc.Quit

或者，您可以编辑注册表中的值：

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")    
WshShell.RegWrite  "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Settings\Default Database Directory", "C:\Test", "REG_SZ"

---

正如您所知，这些属性返回当前打开的数据库的路径和路径+文件名。