主题：FTP批量下载到文件夹的问题

1、你的ftp的路径必须明确，或者可以合成得到ftp文件的路径；

2、下载后的文件名必须明确；

如果不能保证1、2，那就不不能下载。

Dim ftp1 As New FtpClient
ftp1.Host="120.86.178.198"
ftp1.Account = "xxxxx"
ftp1.Password = "xxxxx"
ftp1.RootDir = "/" '设置根目录 这里会出现不同的根目录
For Each dr As DataRow In DataTables("表A").Select("[下载] = true ")
    Dim path As String =  dr("路径") & "\" & dr("姓名") & "\" & dr("证件图片")
    ftp1.Download("/证件/" & dr("证件图片"), path, True)
    path =  dr("路径") & "\" & dr("姓名") & "\" & dr("简历")
    ftp1.Download("/简历/" & dr("证件图片"), path, True)
Next
ftp1.Close

Dim ftp1 As New FtpClient
ftp1.Host="120.86.178.198"
ftp1.Account = "xxxxx"
ftp1.Password = "xxxxx"
For Each dr As DataRow In DataTables("表A").Select("[下载] = true ")   
    ftp1.RootDir = "/证件"
    Dim path As String =  dr("路径") & "\" & dr("姓名") & "\" & dr("证件图片")
    ftp1.Download(dr("证件图片"), path, True)
   
    ftp1.RootDir = "/简历"
    path =  dr("路径") & "\" & dr("姓名") & "\" & dr("简历")
    ftp1.Download(dr("简历"), path, True)
Next
ftp1.Close