0

我想下载一个文件夹或单个文件，但是我下载文件的方式我不知道文件名，所以这就是为什么我想要下载文件夹然后我可以保存文件夹以覆盖或添加其他文件文件到输出文件夹。对于我正在使用的单个文件

Set args = WScript.Arguments
Set objNetwork = CreateObject("Wscript.Network")
Url = "http://webpage.com/downloads"
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", Url, False
xHttp.Send


with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "C:\Users\"&objNetwork.UserName&"\AppData\Roaming\downloadfolderarea", 2 '//overwrite
    .end with

任何帮助表示赞赏

4

1 回答 1

1

XMLHttpRequest对象不支持 FTP 或 SSH。您必须为这些协议使用适当的客户端，例如ftp.exe（用于 FTP）或PuTTY 套件中的工具（用于 SSH/SCP/SFTP）。我更喜欢后者，因为您可以使用公钥身份验证而不是处理用户名/密码。

上述客户端是可编写脚本的，您可以使用该Run方法从 VBScript 执行它们。示例plink：

Set sh = CreateObject("WScript.Shell")
sh.Run "C:\path\to\pscp.exe -i key user@host:/path/to/src C:\dst"
于 2013-06-22T09:29:31.417 回答