Ушёл из жизни
Сообщения: 6021 Благодарности: 3491
Профиль | Отправить PM | Цитировать
@Echo Off Set MyDir=e:\Temp 1\08 Call :_subdir "%MyDir%" Echo. Echo All subdirs = %SubDirs% Pause>Nul Exit :_subdir For /D %%s In ("%~1\*") Do ( Set /a SubDirs +=1 Echo %%s Call :_subdir "%%~s" ) GoTo :EOF
Отправлено: 21:12, 26-04-2013 | #4