A vbs script that can delete files of a specified number of days

CopyCodeThe Code is as follows: const filepath = "E: \ log" 'defines the Directory

Set FSO = Createobject ("scripting. FileSystemObject ")
Showsubfolders FSO. getfolder (filepath)
Sub showsubfolders (folder)
For each subfolder in folder. subfolders
Set files = subfolder. Files
If files. Count <> 0 then
For each file in files
If file. datelastmodified <now-30 then 'is used to determine whether it has exceeded 30 days
FSO. deletefile (subfolder. Path & "\" & file. Name) 'Delete
'Wscript. Echo subfolder. Path & "\" & file. name' display
End if
Next
End if
Showsubfolders subfolder
Next
End sub