Since you're using a loop, I'm going to assume you're holding the file path in a variable called strFilePath and that the file actually exists (since your looping through the files in a folder)
If Left$(Dir(strFileName), 4) = Format(Now(), "mmdd") Then
FileSystem.FileCopy strFileName...