Office中国论坛/Access中国论坛

标题: 系统安装目录如何用代码表述？ [打印本页]

作者: xryacc2 时间: 2009-11-29 20:29
标题: 系统安装目录如何用代码表述？
象%systemroot%这样的系统安装目录在VBA代码中怎样表述才能得到安装目录信息？谢谢。

作者: chenzhirong2008 时间: 2009-11-29 21:10
用API
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

作者: xryacc2 时间: 2009-11-29 22:21
具体怎么写呢？

作者: xryacc2 时间: 2009-11-29 22:34
比如我不知道用户的系统安装在什么盘符下，我要判定一个%systemroot%\system32\下的mswinsck.ocx是否存在，如何写呢

作者: xryacc2 时间: 2009-11-29 22:53
问题已解决！谢谢chenzhirong2008 ，补充一下，与大家技术共享：
Dim a As String * 254
GetSystemDirectory a, 254
MsgBox a '弹出系统路径

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)