标题：[求助] 如何删除文件

1楼

HBCHSTONE1 发表于：2023/9/27 18:06:00

求助大神：

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

20230927

2楼

有点蓝 发表于：2023/9/28 8:38:00

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)

lst.sort

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

FileSys.DeleteFile(lst(i).split("|")(1),2,2)

3楼

HBCHSTONE1 发表于：2023/9/28 8:57:00

命令窗口运行出现附件提示。
图片点击可在新窗口打开查看

此主题相关图片如下：pt0rbr009l)mdwpx9ftq4~0.png

4楼

有点蓝 发表于：2023/9/28 9:06:00

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

共4 条记录, 每页显示 10 条, 页签: [1]