以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 如何删除文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188566)

--  作者:HBCHSTONE1
--  发布时间:2023/9/27 18:06:00
--  [求助] 如何删除文件
求助大神:
  电脑硬盘上某一文件夹按时间顺序存储了多个文件,如何删除文件,只保留最后5个不删。(按文件创建的先后顺序)


20230927

--  作者:有点蓝
--  发布时间: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
--  发布时间:2023/9/28 8:57:00
--  
命令窗口运行出现附件提示。
图片点击可在新窗口打开查看此主题相关图片如下:pt0rbr009l)mdwpx9ftq4~0.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/9/28 9:06:00
--  
for i as integer = lst.count - 6 to 0 step -1