以文本方式查看主题

-  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=132181)
--  作者：304376480
--  发布时间：2019/3/15 17:55:00
--  删除文件的问题
老师，您好！

自动备份的文件是按日期时间创建的，我想保存5个备份文件，多了就自动删除最先创建的文件，求代码！

If FileSys.GetFiles("D\\数据备份").Count > 4 Then
\'
End If
--  作者：有点甜
--  发布时间：2019/3/15 18:05:00
--  

比如

 

Dim files = FileSys.GetFiles("D:\\")
If files.Count > 4 Then
    Dim ary1(files.count-1) As String
    \'Dim ary2(files.count-1) As String
    Dim i As Integer = 0
    For Each f As String In files
        ary1(i) = f
        i += 1
    Next
    array.sort(ary1)
    For i = 0 To ary1.length-4
        msgbox(ary1(i))
        \'FileSys.DeleteFile(ary1(i), 2, 2)
    Next
End If
--  作者：304376480
--  发布时间：2019/3/15 23:27:00
--  
可以用，谢谢甜版！