Option Explicit
Dim fs
Dim datCurrentDate, strDir
If wScript.Arguments.Count = 1 Then
Main
End If
Private Sub Main
datCurrentDate = Now
strDir = wScript.Arguments(0)
Set fs = CreateObject("Scripting.FileSystemObject")
DelFiles
Set fs = Nothing
End Sub
Private Sub DelFiles
Dim fsFolder, fsFiles, fsFile
Set fsFolder = fs.GetFolder(strDir)
Set fsFiles = fsFolder.Files
For Each fsFile in fsFiles
If fsFile.DateCreated <= datCurrentDate - 2 And Right(fsFile.Name, 3) = "csv" Then
fsFile.Delete
End If
Next
Set fsFolder = Nothing
Set fsFiles = Nothing
End Sub