如何在程序中获得在不同操作系统的系统文件目录？请教高手！

Question

Public Declare Function GetSystemDirectory Lib "KERNEL32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
用这个api

Answer 1

API函数：GetSystemDirectoryOption ExplicitPrivate Declare Function GetSystemDirectory Lib "kernel32" Alias _
        "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Sub Command1_Click()
    Dim x As String * 256
    
    GetSystemDirectory x, 256
    Debug.Print x
End Sub

Answer 2

补充：GetSystemDirectory
GetWindowsDirectory 得到WINDOWS的目录