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

 

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)

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

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

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