- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 如何删除文件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188566)
-- 发布时间：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
-- 发布时间：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