[求助]删除指定文件夹的文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2218人关注过本帖树形打印复制链接主题：[求助]删除指定文件夹的文件

zcgmxf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1653 积分：14702 威望：0 精华：0 注册：2014/6/6 8:42:00

[求助]删除指定文件夹的文件 发帖心情

Post By：2016/7/8 23:14:00 [只看该作者]

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

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

hui986

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：495 积分：3437 威望：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

加好友

发短信

等级：七尾狐帖子：1653 积分：14702 威望：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)

下一主题 >> << 上一主题

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