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