@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:\
If %L% EQU 1 (Echo %TPath%) Else (Echo %What% не найдено)
GoTo :Eof
:Action
If Not Exist %1 GoTo :Eof
Echo %1
FOR /R %1 %%p IN (.) DO (
Set Tpath=%%p
If /I NOT "!Tpath:%What%=!"=="%%p" (
Set TPath=!TPath:~0,-1!
Set L=1
GoTo :Eof
)
)
@Echo Off
Set A=123
Set B=456
Set C=123456123456
SetLocal EnableExtensions EnableDelayedExpansion
Echo %A% %B% %C% !C:%A%=%B%!
@echo off
fsutil fsinfo volumeinfo A:\ >nul 2>nul
Echo A:\ %ErrorLevel%
fsutil fsinfo volumeinfo C:\ >nul 2>nul
Echo c:\ %ErrorLevel%
fsutil fsinfo volumeinfo M:\ >nul 2>nul
Echo M:\ %ErrorLevel%
fsutil fsinfo volumeinfo R:\ >nul 2>nul
Echo R:\ %ErrorLevel%
Bat = "E:\Delete\kuku.bat"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.Shell")
Set Drive = FSO.Drives
SPar = " """
' SPar = " "
For Each Disk In Drive
Dr = Disk.DriveLetter
If Disk.IsReady Then IsR = "1" Else IsR = "0"
DT = CStr(Disk.DriveType)
Par = Dr + "-" + IsR + "-" + DT + " "
SPar = SPar + Dr + "-" + IsR + "-" + DT + " "
Next
SPar = SPar + """"
CodeErr = WS.Run("CMD /C " + Bat + SPar, 1, False)
@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion
FOR %%s IN (%~1) DO FOR /F "usebackq tokens=1,2,3 delims=-" %%i IN ('%%s') DO (
If %%j==0 (Set Ready=Не Готов) Else (Set Ready=Готов)
If %%k==0 Set Status=Неизвестное устройство
If %%k==1 Set Status=Устройство со сменным носителем
If %%k==2 Set Status=Жесткий диск
If %%k==3 Set Status=Сетевой диск
If %%k==4 Set Status=CD-Rom
If %%k==5 Set Status=RAM-Диск
Echo Диск %%i: !Ready! !Status!
)
Pause
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.