- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何实现服务器端存放数据库和扫描文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63950)
-- 发布时间：2015/2/2 7:54:00
-- [求助]如何实现服务器端存放数据库和扫描文件
“收文登记页面－处理签扫描”的主要目的是：无论是哪个电脑，将处理的文档扫描后，存放在各自的电脑：c:\\影印文件夹中，经过处理后，处理签扫描列，以“收文编号_0001....”的形式保存在主机（服务器）的共享文件夹中的data\\处理签扫描中，同时，处理签扫描列为：收文编号_0001，收文编号_0002...，下面代码不知道怎么改，请老师给予指导。（后附软件），请将数据包中的data文件夹放在共享文件夹里。
文件监视器FileCreated代码：
Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length
CurrentTable.Current("处理签扫描") = CurrentTable.Current("处理签扫描") & CurrentTable.Current("收文编号") & "_" & Index & ".jpg" & vbcrlf
FileSys.CopyFile(e.FullPath, "C:\\Documents and Settings\\All Users\\Documents\\处理签扫描\\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)
AfterOpenProject代码：
If FileSys.DirectoryExists("C:\\影印文件夹")=False Then \'如果目录C:\\MyFolder不存在
FileSys.CreateDirectory("C:\\影印文件夹") \'则建立
End If
With FileWatcher
.Path = "C:\\影印文件夹"
.Delay = 1000
.Enabled = True
End With
软件下载：1、软件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:办公收文系统.foxdb |
2、数据包：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:办公收文.zip |
-- 发布时间：2015/2/2 8:31:00
--
出现什么问题? 你的代码是复制到你自己的目录,并不是复制到共享目录啊
-- 发布时间：2015/2/2 8:46:00
--
如何改，请给予更正，就是不知道怎么改，谢谢
-- 发布时间：2015/2/2 8:48:00
--
出现的问题是：不能将扫描后的，经过处理的“收文编号_0001,.......”的扫描件放入共享文件夹中，处理签扫描列的文件名不能生成。
-- 发布时间：2015/2/2 8:53:00
--
除非你FileCreated没执行
你加入messagebox.show调试一下看看
-- 发布时间：2015/2/2 8:59:00
--
请老师，下载软件，给调试一下，
-- 发布时间：2015/2/2 9:00:00
--
你自己试试就知道了.关键是你要运行正常
-- 发布时间：2015/2/2 9:04:00
--
FileSys.CopyFile(e.FullPath, "C:\\Documents and Settings\\All Users\\Documents\\处理签扫描\\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)
改成
FileSys.CopyFile(e.FullPath, "\\\\局域网ip\\data\\处理签扫描中\\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)
-- 发布时间：2015/2/2 9:07:00
--
只要事件执行了,文件名就肯定会生成,
除非Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length 这句代码直接报错.
否则就算Index为0也一样会生成文件名的.你调试一下看看
-- 发布时间：2015/2/2 9:10:00
--
谢谢bin和有点甜，我再试一下