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

在您的代码中，您尚未指定如何获取 LoginName 。此代码有效：

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

在vbs脚本

1 个答案: