以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件监视  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175511)
--  作者：yifan3429
--  发布时间：2022/3/7 22:10:00
--  文件监视
 >FileDeleted
删除文件后执行
如果删除一个文件就删除对应的行 怎么处理 帮助只有增加的，
--  作者：有点蓝
--  发布时间：2022/3/7 22:15:00
--  
根据文件名使用find查询到对应的行，然后删除即可
--  作者：yifan3429
--  发布时间：2022/3/8 1:07:00
--  
新增的文件名混乱不堪，怎么把文件重新命名

Dim r As Row = Tables("图库_木作定制").AddNew()
r("原始_文件名") = FileSys.GetName(e.Name)
r("原始_文件地址") = ("D:\\data\\yst\\"& e.Name)
r("原始_文件夹") = FileSys.GetParentPath(e.Name)
[此贴子已经被作者于2022/3/8 1:09:39编辑过]
--  作者：有点蓝
--  发布时间：2022/3/8 8:31:00
--  
比如文件名"abc.jpg"，改名为日期时间

Dim 原名 As String = "abc.jpg"
Dim ss() As String = 原名.split(".")
Dim 新名 As String = format(Date.now,"yyyyMmddHHmmss") & "." &  ss(1)
msgbox(新名)
--  作者：yifan3429
--  发布时间：2022/3/8 13:09:00
--  
 老师还是有个问题 表格内是修改了，但是原始文件名还是没有修改，不能同步的话就会找不到完整的文件路径啊
如何同步修改文件名称
--  作者：有点蓝
--  发布时间：2022/3/8 13:37:00
--  
参考：http://www.foxtable.com/webhelp/topics/0339.htm

FileSys.MoveFile("c:\\abc\\旧名.docx", "c:\\abc\\新名.docx")
--  作者：yifan3429
--  发布时间：2022/3/13 23:54:00
--  
 Dim r As Row = Tables("图库_木作定制").AddNew()
r("原始_文件夹") = FileSys.GetParentPath(e.Name)
Dim ym As String = FileSys.GetName(e.Name)
Dim ss() As String = ym.split(".")
Dim wjm As String = format(Date.now,r("原始_文件夹")& "MmddHHmmss") & "." &  ss(1)
r("原始_文件名") = wjm
r("原始_文件地址") = ("D:\\data\\yst\\"& r("原始_文件夹") &"\\"& wjm)

\'FileSys.MoveFile(e.Name,r("原始_文件地址"))

还是不行 哪里的逻辑问题  请教老师
--  作者：有点蓝
--  发布时间：2022/3/14 8:31:00
--  
msgbox ("D:\\data\\yst\\"& r("原始_文件夹") &"\\"& wjm)
r("原始_文件地址") = r("原始_文件夹") &"\\"& wjm