[megaloman]

Под спойлером обычный листинг (текстовый файл с названиями каталогов в заданной директории

Код:

Каталоги разделов, которые затронуло обновление
<Windows>
 <Антивирусы>
 <Графика>
 <Интернет>
 <Мультимедиа>
 <Офис>
 <Утилиты>
---------------------------------------------------------
Каталоги для удаления в \winsoft\Windows
 ---------------------------------------------------------
Удалить <StartIsBack AiO v1.0.17> - SFX добавил каталог StartIsBack AIO v1.0.18
 SFX добавил новую программу TeamViewer v15.1.3937
 ---------------------------------------------------------
Каталоги для удаления в \winsoft\Антивирусы
---------------------------------------------------------
Удалить <Windows Firewall Control v6.0.2.0> - SFX добавил каталог Windows Firewall Control v6.1.0.0
 ---------------------------------------------------------
Каталоги для удаления в \winsoft\Графика
---------------------------------------------------------
Удалить <Athentech Perfectly Clear workbench v3.9.0.1710> - SFX добавил каталог Perfectly Clear v3.9.0.1722
Удалить <WinSnap v5.1.6> - SFX добавил каталог WinSnap v5.1.7
 ---------------------------------------------------------
Каталоги для удаления в \winsoft\Интернет
---------------------------------------------------------
Удалить <Viber v12.1.0.29> - SFX добавил каталог viber v12.2.0.54
 ---------------------------------------------------------
Каталоги для удаления в \winsoft\Мультимедиа
---------------------------------------------------------
Удалить <EZ CD Audio Converter v9.0.5.1> - SFX добавил каталог EZ CD Audio Converter v9.0.7.1
Удалить <VidCoder v5.13> - SFX добавил каталог VidCoder v5.14
 ---------------------------------------------------------
Каталоги для удаления\winsoft\Офис
---------------------------------------------------------
Удалить <VueScan v9.7.18> - SFX добавил каталог VueScan v9.7.20
 ---------------------------------------------------------
Каталоги для удаления в \winsoft\Утилиты
---------------------------------------------------------
Удалить <PrivaZer v3.0.85> - SFX добавил каталог PrivaZer v3.0.86
Удалить <Windows 10 Manager v3.1.9> - SFX добавил каталог Windows 10 Manager v3.2.0
Удалить <Z-Info v1.0.18> - SFX добавил каталог Z-Info v1.0.19

По этому листингу удаляются каталоги, указанные в нём для удаления.

Код:

@Echo Off
Cls
>nul chcp 1251

	Set "Listing=Z:\Box_In\listing.txt"

	Set "SpisD="
	Set /A N=1
	Set "@@D%N%=A"
	FOR /F "usebackq tokens=1 skip=1 delims=:" %%i IN (`"wmic logicaldisk get caption | FINDSTR /R /C:"[A-Z]""`) DO (
		Call Set /A N+=1
		Call Set "@@D%%N%%=%%i" 
		Call Set "SpisD=%%SpisD%%%%i"
	)

	CHOICE /C A%SpisD% /M "%SpisD%-select a drive letter,  A-Complete batch file"
	If %Errorlevel%==1 Exit /B 0

	Call Set "DBoxIn=%%@@D%ErrorLevel%%%"
	
	FOR /F "usebackq delims=" %%s IN (`2^>nul More "%Listing%" ^| FIND /I "Каталог"`) Do Call :MyFind "%DBoxIn%" "%%s"
Pause
Exit /B

:MyFind
	Set "SS=%~2"
	Set "SS=%SS:*\=%"
	If Not "%SS%"==%2 GoTo :Catal
	If "%ND%"=="" Exit /B 2
		FOR /F "delims=<> tokens=2" %%c IN (%2) Do 2>nul RD "%ND%\%%c" /S /Q 
	Exit /B
	:Catal
        	Set "ND=%~1:\%SS%"
		If Exist "%ND%" Exit /B 0
		Echo Folder "%ND%" not found
		Set "ND="
	Exit /B 2
Exit /B 1

Кстати

Нет скрипт удаляет совсем не те каталоги, которые добавились с новыми версиями программ »

Так и должно быть. Должен остаться последний добавленный каталог. Или я неправильно понимаю?