Automatic File update

Original - VB Code Option Explicit Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Call DeleteFiles(fso.GetFolder("C:\Test"), 7, ".txt") '<----- Change this folder name to match with your case. Sub DeleteFiles(srcFolder, daysCount, strExtension) Dim srcFile, filesCount filesCount = 0 If srcFolder.Files.Count = 0 Then Wscript.Echo "No File to Delete" Exit Sub End If For Each srcFile in srcFolder.Files If DateDiff("d", Now, srcFile.DateCreated) < ((-1)*daysCount) Then If (strExtension="") Or (Right(UCase(srcFile.Name), Len(strExtension))=UCase(strExtension)) Then fso.DeleteFile srcFile, True filesCount = filesCount+1 End If End If Next Wscript.Echo filesCount & " Files Deleted successfully" End Sub

Option Explicit
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Call DeleteFiles(fso.GetFolder("C:\Test"), 7, ".txt") '<----- Change this folder name to match with your case.
Sub DeleteFiles(srcFolder, daysCount, strExtension)
    Dim srcFile, filesCount
    filesCount = 0
    If srcFolder.Files.Count = 0 Then
        Wscript.Echo "No File to Delete"
        Exit Sub
    End If
    For Each srcFile in srcFolder.Files
        If DateDiff("d", Now, srcFile.DateCreated) < ((-1)*daysCount) Then
            If (strExtension="") Or (Right(UCase(srcFile.Name), Len(strExtension))=UCase(strExtension)) Then
                fso.DeleteFile srcFile, True
                filesCount = filesCount+1
            End If
        End If
    Next
    Wscript.Echo filesCount & " Files Deleted successfully"
End Sub