以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]扩展列，存放图片，自动删除图片存放文件中，1个月之前的图片，怎么弄？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131472)
--  作者：fengwenliuyan
--  发布时间：2019/2/27 9:53:00
--  [求助]扩展列，存放图片，自动删除图片存放文件中，1个月之前的图片，怎么弄？
扩展列，存放图片，自动删除图片存放文件中，1个月之前的图片，怎么弄？
--  作者：有点甜
--  发布时间：2019/2/27 10:00:00
--  

根据图片的名称，获取具体图片的路径，然后读取图片的信息，如果满足，就删除。

 

http://www.foxtable.com/webhelp/scr/2717.htm

 

http://www.foxtable.com/webhelp/scr/2707.htm

 

http://www.foxtable.com/webhelp/scr/0338.htm

 
--  作者：fengwenliuyan
--  发布时间：2019/2/27 10:08:00
--  这其中，怎么指定一个月前文件删除？怎么写入代码？
If FileSys.FileExists("c:\\data\\fox2.jpg") Then \'如果指定的文件存在
    FileSys.DeleteFile("c:\\data\\fox2.jpg",2,2) \'则彻底删除之
End If

这其中，怎么指定一个月前文件删除？怎么写入代码？
--  作者：有点甜
--  发布时间：2019/2/27 10:12:00
--  
Dim file As String = "d:\\test.jpg"
Dim finfo As new FileInfo(file)
msgbox(finfo.LastWriteTime)
If finfo.LastWriteTime < Date.Today.AddDays(-30) Then
    msgbox("需要删除")
End If
--  作者：fengwenliuyan
--  发布时间：2019/2/27 10:38:00
--  这代码放到什么位置才能有效生效？
这代码放到什么位置才能有效生效？
--  作者：有点甜
--  发布时间：2019/2/27 10:44:00
--  

做一个按钮，需要的时候点击。

 

也可以写到afterOpenProject事件。

 

也可以写到一个定时器里面 http://www.foxtable.com/webhelp/scr/0657.htm