Dim ftp As new FTPClient
ftp.host=Vars("ftp_ip")
ftp.account=Ftp_name 'Vars("ftp_name")
ftp.password= Ftp_pw
If FileSys.FileExists(ProjectPath & "\Attachments\" & Vars("idcard") & ".bmp") Then '如果目标文件已经存在
If ftp.Upload(ApplicationPath & "zp.bmp", "/pxbm/Attachments/" & Vars("idcard") & ".bmp") = True Then
FileSys.DeleteFile(ApplicationPath & "zp.bmp",2,2)
Else
If ftp.Upload(ProjectPath & "\Attachments\" & Vars("idcard") & ".bmp", "/pxbm/Attachments/" & Vars("idcard") & ".bmp") = False Then
Messagebox.show("照片上传失败,请重刷身份证!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
Else
Messagebox.show("照片获取失败,请重刷身份证!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
用代码上传不成功,打开远程文件管理器,ftp文件可以打开下载上传
连接信息如下,是不是跟ftp模式有关系:
此主题相关图片如下:微信截图_20200509145840.png