下列代码设置后,可以扫描件,也可以生成照片列文件名,但点击照片列文件名时,不显示图片,什么原因,不存放在Attachments目录下,而是存放在远程服务器上,代码有什么问题吗?请专家指导。谢谢照片列显示为:
此主题相关图片如下:截图12354.png
AfterOpenProject代码:
If FileSys.DirectoryExists("\\HRW\data\军人事务局\扫描文件")=False Then '如果目录C:\MyFolder不存在
FileSys.CreateDirectory("\\HRW\data\军人事务局\扫描文件") '则建立
End If
With FileWatcher
.Path = "\\HRW\data\军人事务局\扫描文件"
.Delay = 1000
.Enabled = True
End With
文件监视器中fileCreated中代码:
Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length
CurrentTable.Current("处理签扫描") = CurrentTable.Current("处理签扫描") & CurrentTable.Current("收文编号") & "_" & Index & ".jpg" & vbcrlf
FileSys.CopyFile(e.FullPath,"\\HRW\data\军人事务局\"& CurrentTable.Current("收发文") & "登记\"& CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)
扫描文件按钮中的代码:
Dim Proc As New Process
Proc.File = "C:\Windows\System32\wiaacmgr.exe"
Proc.Start()
Proc.WaitForExit() '等带拍照程序退出.
[此贴子已经被作者于2020/1/29 10:10:37编辑过]