以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码中出现错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131794)

--  作者:rgbjwjb
--  发布时间:2019/3/6 18:17:00
--  代码中出现错误提示
“原件扫描”按钮单击后出现“路径中出现非法字符”,且没有循环提示,请指教,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工程档案与文书档案管理系统.rar


--  作者:有点甜
--  发布时间:2019/3/6 18:44:00
--  
Tables("收文登记表").Current.Save()
Dim Proc As New Process
Proc.File = "C:\\Windows\\twain_32\\WinMage\\C100\\Capture Tool.exe"
Proc.Start()
Proc.WaitForExit()
Dim path As String = "C:\\Users\\Administrator\\My Documents\\My Scan\\"
Dim r As Row = Tables("收文登记表").Current
Dim t As Integer = r("文件总页数")
Dim i As Integer = 1
For Each file As String In FileSys.GetFiles(path)
    msgbox(file)
    r("文书图片") = r("文书编号") & "_" & i  & ".jpg" & vbcrlf
    FileSys.CopyFile(file, ProjectPath & "Attachments\\" & r("文书图片"),True)
    i += 1
Next