下边一段代码是利用文件监视器来存放照片的，遇到的问题是，我现在已在Attachments下建好了以“县区\单位名称”为名的文件夹，路径为Attachments\备案表\县区\单位名称，我想把照片按照表中“单位名称”存放照片，怎么修改FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\备案表\" & CurrentTable.Current("姓名") & Index & ".jpg",True)，现在是它把照片都统一存放在“Attachments\备案表”下，显得很乱，谢谢。
利用文件监视器，还可以和第三方软件协同工作。
例如有个人事管理系统，希望第三方的拍照软件给员工拍照，希望拍好的照片以员工的工号作为文件名，并自动存入员工表的照片列。
假定拍照软件存放照片的目录是"Attachments\photo"，我们首先要监控此目录，在AfterOpenProject事件设置代码：
If FileSys.DirectoryExists(ProjectPath & "photo")=False Then '如果目录不存在
FileSys.CreateDirectory(ProjectPath & "photo") '则建立
End If
With FileWatcher
.Path = ProjectPath & "photo"
.Delay = 1000
.Enabled = True
End With
然后将FileCreated事件代码设置为：
Dim Index As Integer = CurrentTable.Current("备案表").split(vbcrlf).length
CurrentTable.Current("备案表")=CurrentTable.Current("姓名") & Index & ".jpg" & vbcrlf
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\备案表\" & CurrentTable.Current("姓名") & Index & ".jpg",True)
加好友 
发短信
Post By：2014/6/16 17:29:00 [显示全部帖子]
