批处理之家 - Powered by Discuz! Board

标题: [其他] 批处理如何批量下载网络上的文件？ [打印本页]

作者: xslxslxsl 时间: 2014-8-14 15:46 标题: 批处理如何批量下载网络上的文件？

在网络上有许多文本需要下载，在不使用第三方下载工具的情况下如何利用批处理进行下载，谢谢大家。
比如：网络上的文件地址为：http://www.bathome.net/1.txt、http://www.bathome.net/2.txt、http://www.bathome.net/a.txt……，总之将*.txt的文件全部下载到本地计算机D:\下载文件夹中。

作者: zwlking 时间: 2014-8-14 16:14

可以使用迅雷通配符下载（*）

作者: xslxslxsl 时间: 2014-8-14 16:42

回复，谢谢，在不使用第三方工具的情况如何批处理 2# zwlking

作者: Linuxer 时间: 2014-8-14 18:40

这个真不会。。。话说，wget这么好用，为什么不能用呢

作者: DAIC 时间: 2014-8-14 20:57

test.vbs

' 要下载的文件
strFileURL = "http://www.bathome.net/1.txt"
' 文件存放路径
strHDLocation = "D:\下载\1.txt"

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
    Set objADOStream = CreateObject("ADODB.Stream")
    objADOStream.Open
    objADOStream.Type = 1
    
    objADOStream.Write objXMLHTTP.ResponseBody
    objADOStream.Position = 0
    
    Set objFSO = Createobject("Scripting.FileSystemObject")
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
    Set objFSO = Nothing
    
    objADOStream.SaveToFile strHDLocation
    objADOStream.Close
    Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
复制代码

作者: hlzj88 时间: 2014-8-15 07:06

wget 通配符下载

wget -r -nd -np -A 'language-pack-zh_9.04*.deb' http://mirror.lupaworl.com/ubuntu/pool/main/l/language-pack-zh/
复制代码

参考地址：http://bbs.chinaunix.net/thread-1479987-1-1.html

作者: xslxslxsl 时间: 2014-8-15 09:23

非常感谢不懂，但是可以学习学习，谢谢！ 5# DAIC

作者: xslxslxsl 时间: 2014-8-15 09:24

谢谢帮助，你的建议很好，但是真心不想用第三方的工具，直接在winxp下编写实现，很感谢你的帮助。 6# hlzj88

作者: DAIC 时间: 2014-8-15 21:08

回复 7# xslxslxsl

多看教程就懂了

欢迎光临批处理之家 (http://bbs.bathome.net/)