Dim r As Row=Tables("订单编码.客户资料").Current
Dim c As new camera
c.capture() '开始照相
Dim s As String = r("身份证号") & "正面摄像" & Date.today & ".gif"
c.Save(ProjectPath & "\Attachments\" & s) '照片复制到Attachments目录
If c.image IsNot Nothing Then '照相成功
r("身份证正面图") = s
End If
Dim ftp1 As New FtpClient
ftp1.Host="192.168.100.16"
ftp1.Account = "123456"
ftp1.Password = "123456"
If ftp1.Upload(ProjectPath & "\Attachments\" & s,"\gzsqykj") = True Then 红色部分代码貌似有故障 修纠正 修正后期待到时候程序在其他网络点打开后 这个对应的图片能够自动下载更新
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
运行错误如下：
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.7.26.1
错误所在事件：窗口,客户资料,Button4,Click
详细错误信息：
未能找到路径“C:\Users\Administrator\Desktop\信捷项目\Attachments\正面摄像2014\8\7.gif”的一部分。
[此贴子已经被作者于2014-8-7 12:27:33编辑过]
加好友 
发短信
Post By：2014/8/7 12:27:00 [只看该作者]
