SHGetSpecialFolderPathVB6

VB6?SHGetSpecialFolderPathshell32.dll"SHGetSpecialFolderPathA"?

"Declare"VB6

Declare Function SHGetSpecialFolderPath Lib "shell32.dll"

Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long,

ByVal pszPath As String, ByVal csidl As Long,

ByVal fCreate As Long) As Long

"hwnd"0?"pszPath""csidl"CSIDL_PROFILE?CSIDL_APPDATA?"fCreate"1?

SHGetSpecialFolderPath?Windows