VB6获取系统特殊目录及环境变量的值
模块 m_PathEnviro.bas
上代码，并欢迎补充我没有列出的项目，谢谢！
'获取模块进程的文件位置
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
'获取当前路径
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'获取特殊目录及环境变量
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
'获取临时文件
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Type SHITEMID
Cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type
Private Const MAX_PATH = 260
Private Const EspIncr As Long = &H80& '枚举中特殊目录的常量增量值
Private Const ExpIncr As Long = &HFF& '枚举中环境变量的常量增量值
Public Enum PathEnviroIndex
'MySelf: GetModuleFileName、GetCurrentDirectory
AppPathFileExt = &H0 'D:\Program Files (x86)\Microsoft Visual Studio\VB98\VB6.EXE
AppPath = &H1 'D:\Program Files (x86)\Microsoft Visual Studio\VB98
TempFile = &H2 'E:\Users\调用：
'获得音乐文件夹路径
ReturnText = GetPathEnviro(UserMusic)
'获取当前登录的用户名
ReturnText = GetPathEnviro(UserName)是的是的，被你发现了，我系统的安装盘在C盘，应用程序默认安装在D盘，用户及配置都在E盘。