Dim oShell Dim strHomeFolder As String 'Get folder Set oShell = CreateObject("WScript.Shell") strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")原文链接:https://www.f2er.com/vb/257942.html
Dim oShell Dim strHomeFolder As String 'Get folder Set oShell = CreateObject("WScript.Shell") strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")原文链接:https://www.f2er.com/vb/257942.html