[решено] Переменные в fso.GetSpecialFolder

[includer-test]

Всем доброго врмени суток. Небольшой вопрос по VBS.

Есть у меня функция, которая сохраняет файл в папке temp:


Function SaveFile(what)
Set fso = CreateObject("Scripting.FileSystemObject")
tempFolder = fso.GetSpecialFolder(2)
'tempFolder = "C:\users\%userprofile%\" не работает
filepath = tempFolder+"\weather.xml"
Dim fso1, tf
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set tf = fso1.CreateTextFile(filepath, True, True) 'rewrite, unicode
tf.Write(what)
tf.Close
End Function


Насколько я понимаю у fso.GetSpecialFolder есть следующие параметры:

WindowsFolder - 0 -The Windows folder contains files installed by the Windows operating system.
SystemFolder - 1 - The System folder contains libraries, fonts, and device drivers.
TemporaryFolder - 2 - The Temp folder is used to store temporary files. Its path is found in the TMP environment variable.

Думаю понятно какие папки.

Дико извиняюсь за вопрос, но с VBS я слабо знаком.
Каким образом можно сохранить файл в папку %userprofile% ?

[Iska]

Option Explicit

' 1.
Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo objWshShell.ExpandEnvironmentStrings("%UserProfile%")

' 2.
Dim objShell

Set objShell = WScript.CreateObject("Shell.Application")
WScript.Echo objShell.NameSpace("shell:Profile").self.Path

WScript.Quit 0

[includer-test]

Спасибо, помогло.