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

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

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

处理好了，谢谢老师