Here is the code;
Sub CheckFolder(objCurrentFolder)
Dim strTempL, strTempR, strSearchL, strSearchR, objNewFolder, objFile, strSize
Const OverwriteExisting = True
currDate = Date
dtmDate = Date - 1
strTargetDate = ConvDate(dtmDate)
For Each objFile In objCurrentFolder.Files
FileName = objFile
If...