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


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

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

帅哥哟,离线,有人找我吗?
Hyphen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

 回到顶部