VB6 获取APPDATA路径

Dim oShell
Dim strHomeFolder As String
'Get folder
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")

你可能感兴趣的:(VB6 获取APPDATA路径)