在软件中直接实现扫描保存到“多文件”夹里面。
自己能力有限,还是采取调用“外部程序”的方法简单一点。找到一款扫描软件,比较好用,跟大家一起分享。
此主题相关图片如下:未命名.jpg
打开外部程序
Dim Proc As New Process '定义一个新的Process
Proc.File = "vuescan.exe" '指定要打开的程序
Proc.Start()
添加扫描好的图片
Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim r As Row = Tables("表A").Current
Dim Newname As String
Newname=tx.value
FileSys.CopyFile(ApplicationPath &"scantemp\"& "temp.jpg", ProjectPath & "\Attachments\照片\" & r("身份证号码") & Newname &".jpg",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & Newname & ".jpg"
Forms("输入名字").Close()
云盘提供下载
http://l9.yunpan.cn/lk/Q2rHRELhjXUjJ?sid=304
[此贴子已经被作者于2013-2-12 11:29:12编辑过]