[madmasles]

porokh,
Попробуйте так:

Код:

#include <File.au3>

$sDir = 'D:\Inbox'
$sHour = '02'
$sMin = '25'
$sPref = '2r'
$iError = 0
$aFiles = _FileListToArray($sDir, '*(*).txt', 1)
If Not @error Then
    For $i = 1 To $aFiles[0]
        $aTimes = FileGetTime($sDir & '\' & $aFiles[$i], 1)
        If Not @error Then
            If $aTimes[3] == $sHour And $aTimes[4] == $sMin Then
                If Not FileMove($sDir & '\' & $aFiles[$i], $sDir & '\' & $sPref & $aFiles[$i], 1) Then $iError += 1
                ExitLoop ;закомментировать, если переименовывается не один файл
            EndIf
        EndIf
    Next
EndIf
If $iError Then
    MsgBox(16, 'Error', 'Не переименовано файлов: ' & $iError)
EndIf