使用API穫?cè)indows繫統(tǒng)路徑(System32）目録的函數(shù)

Access VBA 使用API穫?cè)indows繫統(tǒng)路徑(System32）目録的函數(shù)

（如果是windows  64位繫統(tǒng)，則穫?cè)〉氖?64位的繫統(tǒng)目録）

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

如果是windows 64位，想穫?cè)?32位的繫統(tǒng)目録呢。則可以蔘考這裡

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