Foxtable(狐表)用户栏目专家坐堂 → [求助]删除指定文件夹的文件


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

主题:[求助]删除指定文件夹的文件

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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14459 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助]删除指定文件夹的文件  发帖心情 Post By:2016/7/8 23:14:00 [只看该作者]

老师,如何删除两天前以 年 月 日 时 分 秒 命名的文件

如 d:\20160706101010.bak 是否可以拆分成日期格式后比对?


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


加好友 发短信
等级:一尾狐 帖子:494 积分:3432 威望:0 精华:0 注册:2012/3/29 21:15:00
  发帖心情 Post By:2016/7/9 4:08:00 [只看该作者]

Dim strFiles As String  = "d:\20160706101010.bak "
Dim strdate As String = FileSys.GetName(strFiles)
Dim Filesdate As String   '文件日期
Dim strToDay As String   '今天
Dim Intday As String

Filesdate  = strdate.SubString(0,8)
strToDay = Format(Date.Today(), "yyyyMMdd")
Output.Show("文件日期与今天相差:"  & strToDay - Filesdate & "天")

 

‘进行判断并进行相应删除代码……………………


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


加好友 发短信
等级:七尾狐 帖子:1636 积分:14459 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2016/7/9 12:08:00 [只看该作者]

谢谢!朋友相差的天数都好算,就是删除 用 年 月 日 时 分 秒 命名的文件怎么定义呢?

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/9 12:16:00 [只看该作者]

Dim strFiles As String  = "d:\20160706101010.bak"
Dim strdate As String = FileSys.GetName(strFiles)
strdate = strdate.Replace(".bak","")
strdate = strdate.Insert(12,":").Insert(10,":").Insert(8 ," ").Insert( 6,"-").Insert( 4,"-")
Dim d As Date = cdate(strdate)
Output.Show(d)

 回到顶部