Foxtable(狐表)用户栏目专家坐堂 → [求助]扩展列,存放图片,自动删除图片存放文件中,1个月之前的图片,怎么弄?


  共有2607人关注过本帖树形打印复制链接

主题:[求助]扩展列,存放图片,自动删除图片存放文件中,1个月之前的图片,怎么弄?

帅哥哟,离线,有人找我吗?
fengwenliuyan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
[求助]扩展列,存放图片,自动删除图片存放文件中,1个月之前的图片,怎么弄?  发帖心情 Post By:2019/2/27 9:53:00 [只看该作者]

扩展列,存放图片,自动删除图片存放文件中,1个月之前的图片,怎么弄?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
这其中,怎么指定一个月前文件删除?怎么写入代码?  发帖心情 Post By:2019/2/27 10:08:00 [只看该作者]

If FileSys.FileExists("c:\data\fox2.jpg"Then '如果指定的文件存在
    FileSys.DeleteFile(
"c:\data\fox2.jpg",2,2'则彻底删除之
End
 If

这其中,怎么指定一个月前文件删除?怎么写入代码?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
这代码放到什么位置才能有效生效?  发帖心情 Post By:2019/2/27 10:38:00 [只看该作者]

这代码放到什么位置才能有效生效?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/27 10:44:00 [只看该作者]

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

 

也可以写到afterOpenProject事件。

 

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

 


 回到顶部