#include <File.au3>
$sDirNew = @ScriptDir & '\DirNew' ;папка в которой проверяем файлы
$sDirOld = @ScriptDir & '\DirOld' ;папка в которую перемещаем файлы
$sMask = '*' ;можно задать маску, например $sMask = '*.txt'
$iCount = 0
$sDate = @YEAR & @MON & @MDAY
$aFiles = _FileListToArray($sDirNew, $sMask, 1)
If @error Then
MsgBox(16, 'Error № ' & @error, '_FileListToArray')
Exit
EndIf
For $i = 1 To $aFiles[0]
$sTime = FileGetTime($sDirNew & '\' & $aFiles[$i], 1, 1)
If @error Then ContinueLoop
If StringLeft($sTime, 8) <> $sDate Then
If FileMove($sDirNew & '\' & $aFiles[$i], $sDirOld & '\' & $aFiles[$i], 9) Then $iCount += 1
EndIf
Next
MsgBox(64, 'Info', 'Переместили файлов: ' & $iCount)