如何快速下载大量的小文件？
我的目的是下载大量的小图片。
我创建了24条线程，每条线程都单独地下载一个图片，刚开始用的是My.Computer.Network.DownloadFile，总感觉速度不够快。然后在网上搜懂到了这个代码：

        Dim DownloadBlock As Integer = 1024
        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest
        theRequest = WebRequest.Create("这是下载地址")
        theResponse = theRequest.GetResponse
        Dim writeStream As New IO.FileStream("这是保存路径")
        Do
            Dim readBytes(DownloadBlock - 1) As Byte
            Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, DownloadBlock)
            If bytesread = 0 Then Exit Do
            writeStream.Write(readBytes, 0, bytesread)
        Loop
        theResponse.GetResponseStream.Close()
        writeStream.Close()

原来的代码很长，我把没用的删下去了，只留下下载的地方,不过好像还有没用的东西。
但是用了这个感觉图片像是在一张一张下载似的，怎么弄都达不到浏览器加载大量小图片的那个速度。
[解决办法]
这是下载一个文件的代码
你放到你的24个线程里，每个线程处理一个文件下载