以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片保存问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97425)
--  作者：HJG_HB950207
--  发布时间：2017/3/12 8:53:00
--  图片保存问题
表A两列:
     姓名   照片



   表状态下录入时，照片录入资料来源有可能是D盘，也可能是E盘，所以照片列的照片目录不一致，
   为了统一，在项目目录下建一子目录FOX，窗口中建一按钮，目的是将照片列所有图片存入  FOX
子目录中，并更新表照片列，使照片列的来源均为项目子目录FOX. 这样可避免将 项目文件在别的计
算机上使用时遗失照片资料。
   请教老师如何写代码，谢谢！
   
   
--  作者：wyz20130512
--  发布时间：2017/3/12 12:26:00
--  
With DataTables("表A")
    .DataCols("照片").DefaultFolder = "Fox"
End With

执行后，照片将保存在项目的Attachments目录的FOX子目录中。
默认情况下，增加的照片会自动Copy到指定的目录里。
[此贴子已经被作者于2017/3/12 12:45:09编辑过]
--  作者：有点色
--  发布时间：2017/3/12 20:13:00
--  

 

 关键是你的存放路径，文件都是存放在那里的。默认存放在attachments里面的，只要把项目拷贝了，不可能有相片遗失的情况。

 

 你也可以指定存放路径，如代码

 

With DataTables("表A")
    .DataCols("照片").DefaultFolder = ProjectPath & "Fox\\"
End With