Укажите путь в скрипте VBS

Question

Я искал по всему, но не смог найти ответа.Я хочу, чтобы путь savetofile был на рабочем столе, независимо от имени пользователя.но я получаю ошибку.Я думаю, что это о пути, который вызывает ошибку.Любые советы?

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://banos.me/Despacito.mp3", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile ""C:\Users\"" & LoginName & ""\Desktop\"", 2 '//overwrite
end with

Answer 1

В вашем коде вы не указали, как вы получаете Логин .Этот код работает:

Dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = createobject("Adodb.Stream")
Dim objShell
Dim userPath

Set objShell = Wscript.CreateObject("Wscript.Shell")
userPath = objShell.SpecialFolders("Desktop")
filePath = userPath &"\Despacito.mp3"

xHttp.Open "GET", "http://banos.me/Despacito.mp3", False
xHttp.Send
filePath = userPath &"\Despacito.mp3"

with bStrm
    .type = 1
    .open
    .write xHttp.responseBody
    .savetofile filePath, 2
end with