主题：这段代码可以不可以改成下载整个目录的内容

 

Network.DownloadFile("http://www.foxtable.com/download/release.rar", "c:\data\Release.rar" ,"" ,"" ,True, 100000, True)

 

这段代码可不可以改成 

Network.DownloadFile(http://www.foxtable.com/download/下所有文件, "c:\data\" ,"" ,"" ,True, 100000, True)

 做不到，http无法得到路径下的所有问题的，除非你的路径是ftp的

 

 http://www.foxtable.com/help/topics/1410.htm

 

Dim ftp1 As new ftpclient

Dim fls As List(of String)

ftp1.host="tat.net"

ftp1.Account = "user1"

ftp1.password = "uu"

fls = ftp1.GetFileList("\upfile1\pic\")

For Each File As String In FileSys.GetFiles("fls")

 

If ftp1.Download(file, "/" & "d:\图片\",True) = True Then

    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

Next

试着写了一下，不行啊，哈哈，劳驾了啊~~

Dim ftp1 As new ftpclient

Dim fls As List(of String)

ftp1.host="tat.net"

ftp1.Account = "user1"

ftp1.password = "uu"

For Each File As String In ftp1.GetFileList("\upfile1\pic\")
    
    If ftp1.Download(file, "d:\图片\" & FileSys.GetName(file),True) = True Then
       
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
       
    Else
       
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
       
    End If
Next

 超出内存，内存不够用。应该是你的文件较多，文件较大，最后导出这个问题；

 

 你尝试少一些文件的文件夹，看是否可以。

这样啊，那怎么办呢？有没有其他的办法呢？因为我们的图片确实很多。几十万张，如果直在线浏览的话，速度是个问题，所以想做个客户端，在客户端直接浏览。

狐表可以做在线浏览的

 

如果是几十万张图片，肯定不要一次性下载完！而且，如果是十几万张图片，放在一个文件夹下不划分子文件夹的话，也是不合理的。

 

即便你是做客户端，一次性下载，最多也刚刚好下载几张到十几张图片就够了。