@echo off
md .descr
for %%F in (*) do call :do_file "%%F"
goto :EOF

:do_file
echo %~1
for /f "delims=" %%D in ("%~dp1\.") do set foldername=%%~nxD
echo [%foldername%]>".descr\%~1.txt"
echo %~nxtza1>>".descr\%~1.txt"

@echo off
for /f "delims=" %%D in ("%CD%") do set diskname=%%~nxD
call :do_dir "%CD%\" "%CD%\.descr\" ""
goto :EOF

:do_dir
echo [%diskname%\%~3]
md "%~2%~3"
for /D %%D in ("%~1%~3\*") do if not "%%~nxD" == ".descr" call :do_dir "%~1" "%~2" "%~3%%~nxD\"
for %%F in ("%~1%~3\*") do call :do_file "%%F" "%~2" "%~3"
goto :EOF

:do_file
set descrfile=%~2%~3%~nx1.txt
echo %~1 ^> %descrfile%
echo [%diskname%\%~3]>"%descrfile%"
echo %~nxtza1>>"%descrfile%"
goto :EOF

:do_file
set descrfile=%~2%~3%~nx1.txt
echo %~1 ^> %descrfile%
echo Location:   %diskname%\%~3>"%descrfile%"
echo Name:   %~nx1>>"%descrfile%"
set /a filesize=%~z1 / 1048576
echo Size:   %filesize% MB (%~z1 B)>>"%descrfile%"
echo Modified:   %~t1>>"%descrfile%"
echo Attributes:   %~a1>>"%descrfile%"
goto :EOF