Foxtable(狐表)用户栏目专家坐堂 → 如何将照片列存储在远程服务器文件夹中?


  共有2904人关注过本帖树形打印复制链接

主题:如何将照片列存储在远程服务器文件夹中?

帅哥哟,离线,有人找我吗?
hrw68529
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
如何将照片列存储在远程服务器文件夹中?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110579 积分:562791 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2020/1/29 16:29:00 [只看该作者]

谢谢

 回到顶部