[VBA函数]：返回Windows系统文件夹的全路径

whp5924

Public Declare Function GetSystemDirectory Lib "kernel32" _
     Alias "GetSystemDirectoryA" _
    (ByVal lpBuffer As String, _
     ByVal nSize As Long) As Long

Public Const MAX_PATH = 260

Public Function GetWinSysDir() As String

    Dim nSize As Long, lpBuffer As String
    Dim retVal As Long
   
    nSize = MAX_PATH
    lpBuffer = Space(nSize)
   
    retVal = GetSystemDirectory(lpBuffer, nSize)
   
    GetWinSysDir = IIf(retVal > 0, Left(lpBuffer, retVal), "ERROR")

End Function