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
下载下来还是多层文件夹,怎么弄呢?
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq截图20200903105425.png
[此贴子已经被作者于2020/9/3 11:34:19编辑过]