以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码中出现错误提示  (http://www.foxtable.com/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