Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 如何删除文件


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

主题：[求助] 如何删除文件
帅哥哟，离线，有人找我吗？
HBCHSTONE1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：185 威望：0 精华：0 注册：2023/9/8 19:36:00 		[求助] 如何删除文件  发帖心情 Post By：2023/9/27 18:06:00 [只看该作者]

求助大神：
  电脑硬盘上某一文件夹按时间顺序存储了多个文件，如何删除文件，只保留最后5个不删。（按文件创建的先后顺序）


20230927
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/28 8:38:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0331.htm

dim lst as new list(of string)
For Each File As String In FileSys.GetFiles("C:\某一文件夹")
Dim ifo As new FileInfo(File)
   lst.add(ifo.CreationTime & "|" & File)
Next
lst.sort
for each i as integer = lst.count - 6 to 0 step -1
FileSys.DeleteFile(lst(i).split("|")(1),2,2)
next
 回到顶部
帅哥哟，离线，有人找我吗？
HBCHSTONE1
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：185 威望：0 精华：0 注册：2023/9/8 19:36:00 		  发帖心情 Post By：2023/9/28 8:57:00 [只看该作者]

命令窗口运行出现附件提示。
图片点击可在新窗口打开查看此主题相关图片如下：pt0rbr009l)mdwpx9ftq4~0.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/28 9:06:00 [只看该作者]

for i as integer = lst.count - 6 to 0 step -1

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询