Dim oShell
Dim strHomeFolder As String
'Get folder
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")
VB6 获取APPDATA路径
最新推荐文章于 2022-10-21 20:02:53 发布
Dim oShell
Dim strHomeFolder As String
'Get folder
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")