Сортировка xls файлов в архив

@echo off
setlocal enabledelayedexpansion
rem Скрипт сортировки Excel файлов в папки по дням
rem Принцип работы:
rem 1. Нужно положить в папку с Excel файлами, которые нужно отсортировать (Excel файлы - разрешения xls, xlsx, xlsb).
rem 2. Запустить скрипт.
rem 3. Скрипт отберёт все файлы, которые были изменены последний раз вчера или раньше и поместит их в папку archive, которую он сам и создаст.
rem 4. Скрипт рассортирует все файлы в папке archive по папкам (каждая папка будет иметь в названии дату, когда файлы последний раз были изменены).
rem Примечание: в папку archive можно помещать не только Excel файлы, они тоже будут сортированы.

IF NOT EXIST archive md archive

echo Отбираем старые файлы
forfiles /D -1 /m *.xls* /c "cmd /c move @file archive"

echo Сортируем по папкам файлы, перемещённые в архив
cd archive
for %%I in (*.*) DO (
    rem Время последнего изменения файла
    set "fn=%%~tI"
    rem echo fn=!fn!

    rem Название для папки из даты файла
    set  fd=!fn:~6,4!_!fn:~0,2!_!fn:~3,2!
    if not exist !fd! md !fd!
    move "%%I" "!fd!/%%I"
)

pause