Question

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

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

感谢任何帮助

Answer 1

XMLHttpRequest个对象不支持FTP或SSH。您必须为这些协议使用适当的客户端，例如ftp.exe（用于FTP）或来自PuTTY suite的工具（用于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"

在VBS中下载文件夹

1 个答案: