Windows Scripting: Options par défaut pour MS Access

Question

Recherche de la propriété de l'objet Access pour obtenir l'emplacement du fichier par défaut afin que je puisse lui envoyer une mise à jour par script. Exemple: cette attrape les choses à partir de Word et me dit où le fichier d'utilisateur et chemins modèle pointent

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 

Essayer de faire quelque chose de similaire avec Access.

Answer 1

Hmmm ... juste un coup d'oeil rapide à travers le C:\Program Files\Microsoft Office\Office10\MSACC.OLB (J'utilise un accès plus ancien) en utilisant TLViewer. Je n'ai aucune idée si elles sont utiles ou non - je ne suis pas beaucoup dans Access.

Answer 2

Il existe deux façons de procéder. Vous pouvez, comme vous le suggérez, obtenir l'objet d'accès et de travail avec elle:

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

Ou vous pouvez simplement modifier la valeur dans le Registre:

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"