Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

获取ACCESS安装路径的二法(分享)

2008-10-9 18:32| 发布者: tanhong| 查看: 3356| 评论: 5

我们VBA编程中，有时需要获取 Msaccess.exe 安装路径，如：用 shell 方法启动带工作组mdb项目时，就必须指定 Msaccess.exe 的安装路径。下面介绍两种方法：

方法一：通过SysCmd函数

CODE:

debug.print SysCmd(acSysCmdAccessDir)方法二：通过注册表键值获取

CODE:


Private ER_CrpShell As Object
'------------------------------------------------------
'功  能:    读取注册表指路径键值
'输  入:    strRegKey 字符串变量，指定注册表键值路径
'输  出:　　RegRead  字符串变量，输出所获得路径
'------------------------------------------------------
Public Function RegRead(strRegKey As String) As String
    On Error Resume Next
    Set ER_CrpShell = CreateObject("WScript.Shell")
        RegRead = ER_CrpShell.RegRead(strRegKey)
    Set ER_CrpShell = Nothing
End Function

debug.print RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msaccess.exe\path")

以上二种方法可放到按钮单击事件中测试，再按 " Ctrl+G " 在VBA编辑器中的立即窗口查看结果。（以上方法仅供参考）

收藏分享邀请

发表评论

帐号		自动登录	找回密码
密码			注册

获取ACCESS安装路径的二法(分享)

最新评论

相关分类