主题：老师，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