Переименование группы файлов по дате создания

Переименование группы файлов по дате создания

Serg2010

Пользователь

Сообщения: 84
Благодарности: 0

Добрый день!

Подскажите, как в некоторой папке, по какой-либо маске (к примеру *.arj) переименовать все файлы удовлетворяющие маске добавив впереди дату создания до секунд.
например было Dat_day1.arj, а будет, например, 2012-04-09-23-44-25_Dat_day1.arj, где сначала идет год, месяц, день и т.д. Как переименовать отдельный файл знаю, а вот обойти все в цикле затрудняюсь. Необходимо сделать все проверки на наличие папки, файлов и т.д. что там по уму нужно.

Спасибо.

Отправлено: 21:50, 09-04-2012

madmasles

Ветеран

Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать

Serg2010,
Попробуйте так.

Код:

;#include <Array.au3>
#include <File.au3>

Global $sDir = @ScriptDir & '\BackUp\', $sMask = '*.au3', $iCount

If Not StringInStr(FileGetAttrib($sDir), 'd') Then Exit -33

$aFiles = _FileListToArray($sDir, $sMask, 1)
If @error Then Exit -55
;_ArrayDisplay($aFiles)
For $i = 1 To $aFiles[0]
    $sDate = ''
    If StringRegExp($aFiles[$i], '^\d{4}_\d{2}_\d{2}_\d{2}_\d{2}_\d{2}_') Then ContinueLoop ;если уже переименованы
    $aTime = FileGetTime($sDir & $aFiles[$i], 1)
    If @error Then ContinueLoop
    For $j = 0 To UBound($aTime) - 1
        $sDate &= $aTime[$j] & '_'
    Next
    If FileMove($sDir & $aFiles[$i], $sDir & $sDate & $aFiles[$i], 1) Then $iCount += 1
Next
MsgBox(64, 'Info', StringFormat('All files: %d\nRename files: %d', $aFiles[0], $iCount))