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

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

Ветеран


Contributor


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

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


CMD тоже можно. Была проблема с атрибутами файлов.
Код: Выделить весь код
@Echo Off
cls
	Set "BoxData=Z:\Box_In\SomethingLikeThis\MainFldr"
	Set "FileList=Z:\Box_In\SomethingLikeThis\LstFldr\*.lst"

	Set /A N=10000
	FOR %%f IN (%FileList%) DO FOR /F "usebackq delims=" %%s IN (`More "%%f"`) DO Call :Count "%%~nxs"
	
	If %N%==%Max% Echo !!! "%FileList%" not found &Exit /B 2

	Call :MyDel "%BoxData%"
	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxData%" /B /S /A:D`) DO Call :MyDel "%%d"
Pause
GoTo :Eof

:Count
	Set /A N+=1
	Set "@@%N%=%~1"
GoTo :Eof

:MyDel
	FOR /F "usebackq tokens=1* delims==" %%f IN (`Set "@@"`) DO If Exist "%~1\%%~g" (
		Attrib -R -H -S "%~1\%%~g"
		Del "%~1\%%~g"
	)
GoTo :Eof

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

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

Отправлено: 15:43, 05-01-2019 | #7