以文本方式查看主题

-  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=145543)
--  作者：hrw68529
--  发布时间：2020/1/29 10:09:00
--  如何将照片列存储在远程服务器文件夹中？
下列代码设置后，可以扫描件，也可以生成照片列文件名，但点击照片列文件名时，不显示图片，什么原因，不存放在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编辑过]
--  作者：有点蓝
--  发布时间：2020/1/29 13:53:00
--  
首先存放目录要设置为：\\\\HRW\\data\\军人事务局\\


然后fileCreated中代码

Dim r As Row = CurrentTable.Current
If r Is Nothing Then Return
Dim lst As List(of String) = r.DataRow.Lines("处理签扫描")
Dim name As String = r("收发文") & "登记\\" & r("收文编号") & "_" & lst.Count & ".jpg"
lst.Add(name)
r.DataRow.Lines("处理签扫描") = lst
FileSys.CopyFile(e.FullPath,"\\\\HRW\\data\\军人事务局\\" & name,True)
--  作者：hrw68529
--  发布时间：2020/1/29 16:29:00
--  
谢谢