uncomment some lines and save as a .vbs file, use cscript/wscript to run

Const ForWriting = 2
Const UseDefault = -2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\tools\vialinks\data")
Set f = objFSO.OpenTextFile("Logfile.txt", ForWriting, UseDefault) 'Add Path if necessary

For Each efile in objFolder.Files
'Wscript.Echo "file is " & efile
'WScript.Echo eFile.DateLastModified
If DateDiff("d",eFile.DateLastModified,Now) >= 30 Then
f.WriteLine("File found that is 1 month old: " & efile)
objFSO.DeleteFile(eFile)
End If
Next
f.Close()