#SingleInstance Force
SetBatchLines -1
SendMode Input
SetWorkingDir, %A_ScriptDir%

InitialFolder := "C:\Folder" 	;исходный путь
TargetDrive := "D" 		;буква диска папки-приёмника

date := "2021/04/23"
date := StrReplace(date, "/")
;!!отчёт от текущего момента
diff -= date, Days 		; здесь diff принимает значение A_Now
;!!отчёт от начала дня
;diff := A_Year . A_MM . A_DD
;diff -= date, D
;MsgBox, % diff

;https://www.autohotkey.com/boards/viewtopic.php?p=216003#p216003
loop, %InitialFolder%\*.*, 1, 1
{
   if (SubStr(A_Now, 1, 8) - SubStr(A_LoopFileTimeModified, 1, 8) < diff)
   {
      GoSub, Copy
      newFiles .= A_LoopFileFullPath "`n"
   }
}
MsgBox % newFiles
Return

Copy:
   FileGetAttrib, attrib, %A_LoopFileFullPath%
   IfInString, attrib, D ;если папка
   {
      Dest_Dir := RegExReplace(A_LoopFileFullPath, "m`a)\w(:.*)", TargetDrive "$1")
      FileGetAttrib, attrib, %Dest_Dir%\
      IfNotInString, attrib, D
         FileCreateDir, %Dest_Dir%\
   }
   Else ;если файл
   {
      Destination := RegExReplace(A_LoopFileFullPath, "m`a)\w(:.*)", TargetDrive "$1")
      Dest_Dir := RegExReplace(Destination, "m`a)(.*)\\[^\\]*", "$1")

      FileGetAttrib, attrib, %Dest_Dir%
      IfNotInString, attrib, D
         FileCreateDir, %Dest_Dir%\

      FileGetAttrib, attrib, %Dest_Dir%\
      IfNotInString, attrib, D
         FileCreateDir, %Dest_Dir%\

      FileCopy, %A_LoopFileFullPath%, %Destination%, 1 ;Перезапись
         if ErrorLevel
            MsgBox Не удалось скопировать `n"%A_LoopFileFullPath%"`nв `n"%Destination%"
   }
Return