ต้องการกำหนดวันลบไฟล์ในโฟล์เดอร์ จะเขียนโค๊ดอย่างไรครับ

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "D:\Work_Program\Auto_Holding_Recon_IMS\VB\database\" ' folder to start deleting (subfolders will also be cleaned)
OlderThanDate = DateAdd("d", 0, Date)  ' 2 days (adjust as necessary)
 
DeleteOldFiles startFolder, OlderThanDate
 
Function DeleteOldFiles(folderName, BeforeDate)
	Dim folder, file, fileCollection, folderCollection, subFolder
	
	Set folder = fso.GetFolder(folderName)
	Set fileCollection = folder.Files
	For Each file In fileCollection
		If file.DateLastModified < BeforeDate Then
			fso.DeleteFile(file.Path)
		End If
	Next
	
	Set folderCollection = folder.SubFolders
	For Each subFolder In folderCollection
		DeleteOldFiles subFolder.Path, BeforeDate
	Next
End Function