Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


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

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


Код: Выделить весь код
@echo off
setlocal

1>nul chcp 1251

subst n: "C:\Path\To\RootDir" 
pushd n:

for /f "tokens=*" %%i in (' dir /b /s /ad ') do (

    pushd "%%i"
    
    for /f "tokens=*" %%j in (' dir /b /a-d ') do call:rep "%%~nxi" "%%j"

    1>>"dir_%%~nxi.htm" (

        echo ^</ul^>
        echo ^</body^>^</html^>    
    
    )
    
    popd

)

md dir_htm

for /f "tokens=*" %%i in (' dir /b /s dir_*.htm ') do move "%%i" dir_htm

popd
subst n: /d
goto:eof

:rep

if not exist "dir_%~1.htm" 1>"dir_%~1.htm" (

    echo ^<html^>^<head^>
    echo ^<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"^>
    echo ^<title^>%~1^</title^>
    echo ^</head^>^<body^>
    echo ^<h2^>%~1^</h2^>
    echo ^<ul^>

)

1>>"dir_%~1.htm" echo ^<li^>^<a href="..%~pnx2"^>%~2^</a^>^</li^>
Где "C:\Path\To\RootDir" корневая директория для создания htm-отчетов.

Последний раз редактировалось Foreigner, 24-08-2013 в 09:13.

Это сообщение посчитали полезным следующие участники:

Отправлено: 08:24, 24-08-2013 | #2