FileSystemObjectのFolderやFileオブジェクトを使って実行といった具合にありそうです
dim fso, folder, file, dt
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Work"
dt = DateAdd( "d", -30, Date)
for each file in folder.files
if CDate(file.CreateDate) < dt then
File.Delete
end if
next
といった具合でしょう