Giúp code xóa tất cả File chỉ chừa lại 3 ngày gần đây (1 người xem)

[minhtuan55]

Chào cả nhà GPE !. Em có dùng đoạn code sau để khi em thoát file thì nó tự xuất ra 1 file và lưu vào đường dẩn khác . Cứ 1 ngày thì nó lưu 1 file. Như vậy cứ 1 tháng là 31 file. 1 năm 365 file vậy nó nhiều quá. Em muốn dùng code tự xóa và chỉ cần 3 file của 3 ngày gần đây nhất.

Ví dụ hôm nay là ngày 21/5/2018 thì em chỉ cần 3 file là ngày 19,20,21 của tháng 5 thế là xong, mấy file khác xóa hết cho nó nhẹ ổ cứng. Rất mong mọi người giúp đở. Xin chân thành cảm ơn. Còn nếu khó quá thì xóa tháng trước chừa lại tháng hiện tại cũng được. XIn chân thành cảm ơn

Code:

Sub saveasnew1()
On Error Resume Next
    Dim FolderPath As String
    FolderPath = Range("k26").Value ' Duong dan
    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(FolderPath) Then .CreateFolder (FolderPath)
         ThisWorkbook.SaveCopyAs FolderPath & "DU LIEU new " & Format(Now(), "DD-MM-YYYY") & ".Xlsb"
    End With
End Sub

[/CODE]