代码之家 › 专栏 › 技术社区 › Steve Horn

windows脚本:获取ms-access的默认选项

vbscript ms-access windows

0

Steve Horn · 技术社区 · 17 年前

尝试查找访问的对象属性以获取默认文件位置,以便我可以编写更新脚本。示例:这将从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

试图用访问做类似的事情。

2 回复 | 直到 17 年前

1

0

bugmagnet 17 年前

六羟甲基三聚氰胺六甲醚。。。只是快速浏览一下 C:\Program Files\Microsoft Office\Office10\MSACC.OLB (我正在使用较旧的访问权限)使用tlviewer。

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

我不知道这些是否有用--我不太方便。

2

0

Oorang 17 年前

有两种方法可以做到这一点。如您所建议的,您可以获取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"