Access使用API获取64位windows系统 32位的系统路径 (Syswow64)目录的函数

2017-07-22 23:02:00
zstmtony
原创
419

Access使用API获取64位windows系统 32位的系统路径 (Syswow64)目录的函数

我们知道如果是windows 64位系统,则 默认的系统目录是system32

但如果我们需要访问它的32位系统目录,则是Syswow64 (这个名称有时容易让人混淆)

那如何用VBA使用API获取这个目录呢,下面写了一个获取的函数供大家使用

OptionExplicit
PublicConst MAX_PATH = 260
'作者:tmtony-Office中国
DeclareFunction GetSystemDirectory Lib "kernel32" Alias"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)As Long
Public Function MyGetSystemDirectory() as String
    Dim S As String, Length As Long
    S = String(MAX_PATH, 0)
    Length = GetSystemDirectory(S, MAX_PATH)
    S = Left(S, InStr(S, Chr(0)) - 1)
    MyGetSystemDirectory=S  'Windows System 系统路径 
End Sub

Sub Main()
    Msgbox MyGetSystemDirectory()
End Sub


如果是 想获取 64位的系统目录(System32),则可以参考这里的技巧文章

http://www.office-cn.net/access-function/141.html

分享