主题：老师，ftp多文件用代码怎么下载呢

此主题相关图片如下：qq图片20200902172715.png

Dim r As Row = Tables("采购合同管理").Current
Dim dlg As New SaveFileDialog
Dim ftp1 As new  ftpclient
ftp1.host="120.***.0"
ftp1.Account =  "ft1"
ftp1.password =  "19*******9"
If ftp1.Download(r("采购合同扫描件"),dlg.FileName,True) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

 

老师，集合位置不知道怎么写

Dim ftp As  New  FtpClient
ftp.Host="120*****.0"
ftp.Account =  "ft****1"
ftp.Password =  "1********9"
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
Dim lst As List(of String) =  dr.Lines("采购合同扫描件")  '获取文件集合
'msgbox(lst.Count) '文件数量
For Each fl As  String In  FileSys.GetFiles(lst)
    If ftp.Download(fl,dlg.FileName,True) = True   Then
        messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next

此主题相关图片如下：qq截图20200903094052.png

开始测试把附件列内容改到了，这样下载下来只有一个文件，这个文件名怎么处理呢？

Dim ftp As  New  FtpClient
ftp.Host="120********0"
ftp.Account =  "ft*****1"
ftp.Password =  "1*******9"
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif;*jpeg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
    Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
    Dim lst As List(of String) =  dr.Lines("采购合同扫描件")  '获取文件集合
    For Each fl As  String In lst
        If ftp.Download(fl,dlg.FileName,True) = True   Then
            messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If

此主题相关图片如下：qq截图20200903105425.png

全部都是下载到这样就停止了

Dim dlg  As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
    Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
    Dim lst As List(of String) =  dr.Lines("采购合同扫描件")  '获取文件集合
    For Each fl As  String In lst
        Dim flname As String = fl.Remove(0,fl.LastIndexOf("/")+1)
        If ftp.Download(flname, dlg.SelectedPath & flname) = True   Then
            messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If

下载下来还是多层文件夹，怎么弄呢？

此主题相关图片如下：qq截图20200903105425.png

处理好了，谢谢老师

老师，同一行，有三个附件列，一次下载三列的附件，怎么把三个列合并到一起？