以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件监视 求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169440)

--  作者:yifan3429
--  发布时间:2021/6/16 23:44:00
--  文件监视 求助
建立好监视文件,如有新的文件加入,
添加文件自动增加行,并根据文件夹的层数提取对应的列名 
 例如: 品牌\\系列\\产品   文件存放方式,往产品的文件添加文件就会启动监视,分别往 品牌\\系列\\产品  文件名 列 写入对应数据


Dim r As Row = Tables("文件监视").AddNew()
r("图片") = e.Name
r("文件夹上一层") = 
r("文件夹上上一层") = 
\'FileSys.CopyFile(e.FullPath, "D:\\备份中心",True)
[此贴子已经被作者于2021/6/17 0:16:00编辑过]

--  作者:有点蓝
--  发布时间:2021/6/17 11:43:00
--  
参考:http://www.foxtable.com/webhelp/topics/1271.htm