Access使用API獲取64位windows系統(tǒng) 32位的系統(tǒng)路徑 (Syswow64）目錄的函數(shù)

Access使用API獲取64位windows系統(tǒng) 32位的系統(tǒng)路徑 (Syswow64）目錄的函數(shù)

我們知道如果是windows 64位系統(tǒng)，則 默認(rèn)的系統(tǒng)目錄是system32

但如果我們需要訪問它的32位系統(tǒng)目錄，則是Syswow64 （這個(gè)名稱有時(shí)容易讓人混淆）

那如何用VBA使用API獲取這個(gè)目錄呢，下面寫了一個(gè)獲取的函數(shù)供大家使用

OptionExplicit
PublicConst MAX_PATH = 260
'作者：tmtony-Office交流網(wǎng)
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 系統(tǒng)路徑 
End Sub

Sub Main()
    Msgbox MyGetSystemDirectory()
End Sub

如果是 想獲取 64位的系統(tǒng)目錄（System32)，則可以參考這里的技巧文章

http://m.mzhfr.cn/access-function/141.html