Сценарии Windows: получить параметры по умолчанию для MS Access - PullRequest
Новая
       32

Сценарии Windows: получить параметры по умолчанию для MS Access

0 голосов
/ 23 мая 2009

Попытка найти свойство объекта для 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.

Ответы [ 2 ]

0 голосов
/ 24 мая 2009

Есть два способа сделать это. Вы можете, как вы предложили, получить объект доступа и работать с ним: 

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"
0 голосов
/ 23 мая 2009

Хммм ... просто быстрый просмотр C:\Program Files\Microsoft Office\Office10\MSACC.OLB (я использую более старый Access) с помощью 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

Понятия не имею, полезны они или нет - я не в Access много.

...