Dim ftp1 As new ftpclient
ftp1.host=var_ftpserver
ftp1.Account = var_user
ftp1.password = var_password
ftp1.Port=var_ftpport
ftp1.UTF8=True
Dim picdir As String=var_localpic '定义图片下载位置
Dim ColName() As String = {"产品图片","表面模具图片","坯底模具图片","纸箱图片","商标图片"} '定义字段数组
For Each dr As DataRow In DataTables("排产明细表_Table1").DataRows '从数据表中提取数据
For i As Integer = 0 To Colname.Length-1
If not dr.IsNull(ColName(i)) Then '判断当前行是否为空行
If ftp1.FileExists(dr(ColName(i))) Then '判断服务器是否有图片 这段代码一启动 都会卡一下
If not FileSys.FileExists(picdir & dr(ColName(i))) Then ' 如果本地文件不存在 则下载文件
ftp1.Download( dr(ColName(i)),picdir & dr(ColName(i))) '下载图片
End If
End If
End If
Next
Next
ftp1.Close '关掉FTP连接
想问下 FTP连接 是否每次都要等个3到5秒？
加好友 
发短信
Post By：2022/3/20 20:23:00 [只看该作者]
