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