不要重复new,而且你用完一定要close,不然你ftp的连接数会不断递增,直至所有的连接数用完。
Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
For Each dr As DataRow In DataTables("商品档案").DataRows
If FileSys.FileExists( ProjectPath & dr("商品条码") & ".jpg") = False Then
ftp1.Download(dr("图片列"),ProjectPath & dr("商品条码") & ".jpg")
End If
Next
ftp1.close