Set GetRecentFile = Nothing
	For Each objFile In objFolder.Files
		If GetRecentFile is Nothing then
			Set GetRecentFile = objFile
		ElseIf objFile.DateLastModified > GetRecentFile.DateLastModified then
			Set GetRecentFile = objFile
		End If
	Next