以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何根据单位名称存放照片？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52465)
--  作者：hrw68529
--  发布时间：2014/6/16 17:29:00
--  [求助]如何根据单位名称存放照片？

下边一段代码是利用文件监视器来存放照片的，遇到的问题是，我现在已在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)
--  作者：有点甜
--  发布时间：2014/6/16 17:33:00
--  

 什么情况下的保存图片？

 

 单纯改路径这样改

 

FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\备案表\\" & CurrentTable.Current("县区") & "\\" & CurrentTable.Current("单位名称") & "\\" & CurrentTable.Current("姓名") & Index & ".jpg",True),
--  作者：hrw68529
--  发布时间：2014/6/16 17:44:00
--  
成功了，谢谢美女
--  作者：lfxwdxx
--  发布时间：2014/6/17 11:59:00
--  
录入照片的问题