RenameFile(OldFileName,StringReplace(DateToStr(Now),'.','',[rfReplaceAll])+ExtractFileExt(OldFileName));