[megaloman]

Сохраните в Windows-кодировке 1251, если в имени файла есть кириллица

Код:

@Echo Off
chcp 1251 >nul

Set "FName=Хливкие шорьки.hta"

Set "Log=%Tmp%\%~nx0.log"

FOR /F "usebackq tokens=1,*" %%c IN (`fsutil fsinfo drives`) DO Set "AllD=%%d"

Del "%Log%" 2>nul
Del "%Log%.tmp" 2>nul

FOR %%d IN (%AllD%) DO FOR /F "usebackq delims=" %%f IN (`dir "%%d%FName%" /B /A:-D /S 2^>nul`) DO Call :LogFile "%%~tf"  "%%f"

If Exist "%Log%.tmp" (
	FOR /F "usebackq delims=" %%s IN (`more "%Log%.tmp"^|Sort`) DO Echo %%s>>"%Log%"
	Del "%Log%.tmp" 2>nul
) Else (
	Echo Файл "%FName%" не найден>"%Log%" 
)

start "s" notepad.exe "%Log%"

GoTo :Eof

:LogFile
	FOR /F "tokens=1,2,3,* delims=./ " %%i IN ("%~1") DO Echo %%k %%j %%i %%l %2 >>"%Log%.tmp"
GoTo :Eof