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

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

Ветеран


Contributor


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

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


Если папку надо найти один раз (Эти две папки уникальны), то, чтобы не искать зря на других дисках
Код: Выделить весь код
@Echo Off
cls

Set What=\Папка 1\Папка 2\.

SetLocal EnableExtensions EnableDelayedExpansion

Set L=0
For %%d In (C D E F G H I J K L M N O P Q R S T U V W X Y Z) Do If !L! EQU 0 Call :Action %%d:\
GoTo :Eof

:Action
If Not Exist %1 GoTo :Eof
Echo %1 

FOR /R %1 %%p IN (.) DO (
	Set Tpath=%%p
	If NOT "!Tpath:%What%=!"=="%%p" (
		Set TPath=!TPath:~0,-1!
		Set L=1
		Echo !TPath!
	)
)

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 13:40, 10-03-2013 | #7