Dim oShell
Dim strHomeFolder As String
'Get folder
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")
VB6 获取APPDATA路径
最新推荐文章于 2022-07-25 11:24:06 发布
Dim oShell
Dim strHomeFolder As String
'Get folder
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")