Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Аватара для gora

Ушёл из жизни


Сообщения: 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