office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access使用API穫取64位windows繫統 32位的繫統路徑 (Syswow64)目録的函數

2017-07-22 23:02:00
zstmtony
原創
4824

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

分享