[求助]如何实现服务器端存放数据库和扫描文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

“收文登记页面－处理签扫描”的主要目的是：无论是哪个电脑，将处理的文档扫描后，存放在各自的电脑：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

出现什么问题? 你的代码是复制到你自己的目录,并不是复制到共享目录啊

如何改，请给予更正，就是不知道怎么改，谢谢

出现的问题是：不能将扫描后的，经过处理的“收文编号_0001,.......”的扫描件放入共享文件夹中，处理签扫描列的文件名不能生成。

除非你FileCreated没执行

你加入messagebox.show调试一下看看

请老师，下载软件，给调试一下，

你自己试试就知道了.关键是你要运行正常

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)

只要事件执行了,文件名就肯定会生成,

除非Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length 这句代码直接报错.

否则就算Index为0也一样会生成文件名的.你调试一下看看

谢谢bin和有点甜，我再试一下

主题：[求助]如何实现服务器端存放数据库和扫描文件