Развлекаюсь, ухудшаю карму ...
Код:
@Echo Off
Set "SFXX=winsoft.exe"
Set "BoxIn=winsoft"
Set "SFX=%~dp0%SFXX%"
GoTo :Script
:DelDir
\winsoft\Windows\
StartIsBack AiO v1.0.17
StartIsBack AIO v1.0.18
TeamViewer v15.1.3937
\winsoft\Антивирусы\
Windows Firewall Control v6.0.2.0
Windows Firewall Control v6.1.0.0
\winsoft\Графика\
Athentech Perfectly Clear workbench v3.9.0.1710
Perfectly Clear v3.9.0.1722
WinSnap v5.1.6
WinSnap v5.1.7
\winsoft\Интернет\
Viber v12.1.0.29
viber v12.2.0.54
\winsoft\Мультимедиа\
EZ CD Audio Converter v9.0.5.1
EZ CD Audio Converter v9.0.7.1
MKVToolNix v42.0.0
VidCoder v5.13
VidCoder v5.14
\winsoft\Офис\
VueScan v9.7.18
VueScan v9.7.20
\winsoft\Утилиты\
PrivaZer v3.0.85
PrivaZer v3.0.86
Windows 10 Manager v3.1.9
Windows 10 Manager v3.2.0
Z-Info v1.0.18
z-info v1.0.19
GoTo :Eof
rem ===========================================================
:Script
cls
Call :SeleDisk "DSel" ||Exit /B %Errorlevel%
rem If Not Exist "%SFX%" (Echo "%SFX%" not found &Pause &Exit /B 2)
rem --- Запуск SFX ----------------------------------------------------------------------------------
Call :SFXout "%DSel%" "%BoxIn%" "%SFX%" ||Exit /B %Errorlevel%
FOR /F "usebackq tokens=1* delims=:" %%a IN (`2^>nul FINDSTR /I /L /B /N ":DelDir" "%~dpnx0"`) DO (
FOR /F "usebackq delims=" %%s IN (`2^>nul More +%%a "%~dpnx0"`) DO (
Echo %%s|>nul 2>nul FINDSTR /I /L /B "GoTo :Eof"&&Exit /B
Call :Working "%DSel%" "%%s" ||Exit /B %Errorlevel%
)
)
Pause
Exit /B
:SFXout
SetLocal
Pushd "%~1:\" ||(Echo "%~1:\" not found &Pause &Exit /B 2)
If Not Exist "%~1:\%~2" (Echo Folder "%~1:\%~2" not found &Pause &Exit /B 2)
%3
Popd
EndLocal
Exit /B 0
:SeleDisk
SetLocal
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"
)
Echo ===========================================================
Echo Select output disk
Echo.
CHOICE /C A%SpisD% /M "%SpisD%-select a drive letter, A-Complete batch file"
If %Errorlevel%==1 Exit /B 3
Call Set "DDD=%%@@D%ErrorLevel%%%"
Echo ===========================================================
EndLocal &Set "%~1=%DDD%"
Exit /B 0
:Working
Call :DelSpace "%~2" "Str"
Set "SS=%Str%"
Set "SS=%SS:*\=%"
If Not "%SS%"=="%Str%" GoTo :Catal
If "%ND%"=="" Exit /B 0
2>nul RD "%ND%%Str%" /S /Q
rem 2>nul Md "%ND%%Str%"
Exit /B
:Catal
Set "ND=%~1:\%SS%"
If Exist "%ND%" Exit /B 0
Echo Folder "%ND%" not found
Set "ND="
Exit /B 0
:DelSpace
SetLocal
Set "SSS=%~1"
:Begin
Set "SS=%SSS%"
If "%SSS:~-1%"==" " Set "SSS=%SSS:~0,-1%"
If "%SSS:~0,1%"==" " Set "SSS=%SSS:~1%"
If Not "%SS%"=="%SSS%" GoTo :Begin
EndLocal &Set "%~2=%SSS%"
Exit /B
Батник и SFX-файл должны быть в одной папке
Set "SFXX=winsoft.exe" -здесь задаётся имя SFX-файла
Set "BoxIn=winsoft" -здесь задаётся имя папки, куда распаковывается SFX
Между :DelDir и GoTo :Eof список удаляемых папок (Вы именно этого хотели, наваять его вручную!) по следующей структуре
\winsoft\Графика\ - имя корневой директории группы файлов
Athentech Perfectly Clear workbench v3.9.0.1710 - имена поддиректорий в этой корневой директории
Perfectly Clear v3.9.0.1722
WinSnap v5.1.6
WinSnap v5.1.7
Вы вроде бы хотели всё расположить в батнике?
SFX можно не запускать. Закомментируйте красную строку
Кроме того, сейчас закомментирован контроль наличия SFX
Для выбора имени диска предоставляется диалог выбора буквы диска из имеющихся
В интерфейсе SFX этот выбор будет подсвечен автоматически
