FTP文件夹下的内容全部下载到本地 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP文件夹下的内容全部下载到本地

共有1460人关注过本帖树形打印复制链接主题：FTP文件夹下的内容全部下载到本地

benwong2013

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

FTP文件夹下的内容全部下载到本地 发帖心情

Post By：2016/12/21 15:54:00 [显示全部帖子]

Dim ftp1 As New FtpClient

Dim dls As List(of String)

ftp1.Host="120.88.88.**"

ftp1.Account = "abc"

ftp1.Password = "****"

dls = ftp1.GetFileList("")

For Each dl As String In dls

ftp1.Download(dl,"c:\A\",True)

希望点击按钮能将ftp目录下的文件全部下载到c盘A文件夹下，但这样的代码发现下载很慢，基本上不可以用，请问如何修改，谢谢！

benwong2013

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2016/12/21 16:16:00 [显示全部帖子]

Dim ftpUrl As New Uri("ftp://127.0.0.1/")

Dim ftp As New FTPHelper(ftpUrl, "test", "test")

addhandler ftp.UploadFileCompleted, addressof client_UploadFileCompleted

addhandler ftp.UploadProgressChanged, addressof client_UploadProgressChanged

ftp.UploadFileAsync(projectpath & "test.jpg", "/test.jpg", True)

如果这个代码修改为将FTP目录下所有的文件下载到本地指定盘应该如何修改？

benwong2013

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2016/12/21 17:04:00 [显示全部帖子]

Network.DownloadFile("ftp://120.86.**.**/Attachments.zip","c:\A\Attachments.zip","***","****")

Dim zip As New zipFile

zip.Open("c:\A\Attachments.zip")

zip.ExtractAll("c:\A")

zip.Close()

If FileSys.FileExists("c:\A\Attachments.zip") Then '如果指定的文件存在

FileSys.DeleteFile("c:\A\Attachments.zip",2,2) '则彻底删除之

End If

最后修改成为这样了

主题：FTP文件夹下的内容全部下载到本地