Как произвести запись файла во временную папку на vbs?

Question

[Артём]

Здравствуйте ,есть код который скачивает файлы затем сохраняет их по указаным путям.
Код работает на отлично,но у меня возникла проблема.
Мне нужно сохранять файлы во временную папку
у меня она выглядит так C:\Users\7272~1\AppData\Local\Temp

Можно ли мне с помощью скрипта вызвать название временной папки в системе,а затем подставить полученное значение с помощью переменной в том коде где ссылки на файлы?

т.к. я посмотрел что на моей виндовс 10 пользовательская папка temp находится по адресу C:\Users\USER_NAME\AppData\Local\Temp\
а на windows xp уже она имеет такой вид C:\Documents And Settings\USER_NAME\Local Settings\Temp\
хотелось бы немного упростить этот процесс,чтобы путь сохранения подставлялся автоматически))

set d = CreateObject("Scripting.Dictionary")
d.Add "0", "прямая ссылка на файл 1|D:\file1.txt"
d.Add "1", "прямая ссылка на файл 2|E:\Temp\trash.txt"
Set x = CreateObject("MSXML2.XMLHTTP")
For Each i In d     
 x.open "GET", Split(d.Item(i), "|")(0), false
 x.send()
 If x.Status = 200 Then
  With CreateObject("ADODB.Stream")
   .Open
   .Type = 1
   .Write x.ResponseBody
   .Position = 0
   .SaveToFile Split(d.Item(i), "|")(1), 2
   .Close
  End With
 End If
Next

Answer 1

[Александр]

Set oShell = CreateObject( "WScript.Shell" )
temp=oShell.ExpandEnvironmentStrings("%TEMP%")

Comments

[Артём]

А не подскажите как подставить выведенные данные непосредственно в эту строчку ?
d.Add "0", "прямая ссылка на файл 1|D:\file1.txt"
А то я совсем новичёк,чтото никак не могу заставить работать полученные данные в пути сохранения((

[Артём]

Set oShell = CreateObject( "WScript.Shell" )
temp=oShell.ExpandEnvironmentStrings("%TEMP%")
set d = CreateObject("Scripting.Dictionary")
d.Add "1", "http://google.com/trash.txt|"&temp&"\trash.txt"
Set x = CreateObject("MSXML2.XMLHTTP")
For Each i In d
x.open "GET", Split(d.Item(i), "|")(0), false
x.send()
If x.Status = 200 Then
With CreateObject("ADODB.Stream")
.Open
.Type = 1
.Write x.ResponseBody
.Position = 0
.SaveToFile Split(d.Item(i), "|")(1), 2
.Close
End With
End If
Next
////так к сожаленю ошибка в синтаксисе возникает((

[Артём]

хотя нет,заработало,огромное вам спасибо