大概这样:
For each dr as datrow in DataTables("xxx").Datarows
Dim fl1 as Strng = dr("文件名")
dim fl2 as string = "目标文件名"
if ftp1.Download(fl1,fl2,True) = False Then
Exit for
end if
Next
升级到最新的2013。
Download
从FTP上下载文件,语法:
Download(sourceFileName, destinationFileName, ShowUI)
sourceFileName:要下载的文件,含路径destinationFileName:保存下载文件的文件名和路径。ShowUI:可选参数,逻辑型,是否显示下载进度,默认为False。