Поиск папки на диске

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
Set /p "Seek=Введите часть имени искомой папки: "
:: Перебирает все локальные диски
For /F "tokens=2 delims==" %%D in ('wmic logicaldisk where drivetype^=3 get caption /value^| find /i "Caption"') do (
  set Disk=%%D
  set Disk=!Disk:~0,2!
  rem Фокус такой - чтобы имя диска появлялось только, когда на нем что-либо было найдено
  set Again=
  for /f "delims=" %%? in ('dir /B /AD "!Disk!\*" ^| find /i "%Seek%"') do (
    if not Defined Again (
      set Again=true
      echo.
      echo Drive !Disk!
      echo ============
    )
    rem Счетчик
    Set /A C+=1
    rem Записывает имена каталогов в массив
    Set Folder.!C!=!Disk!\%%?
    rem Выводит на экран найденную папку
    echo !C!. %%?
))
Echo.
set /p "ch=Выберите № папки для перехода: "
:: Переходит в папку по номеру из массива
start "" "!Folder.%ch%!"

for /f "delims=" %%? in ('dir /B /S /AD "!Disk!\*%Seek%*"') do (

for /f "delims=" %%? in ('dir /B /S /AD "!Disk!\*%Seek%*"') do (

for /f "delims=" %%? in ('dir /B /S /AD "!Disk!\*%Seek%*" 2^>NUL') do (

set /p  Disk= D:
  set Again=
  for /f "delims=" %%? in ('dir /B /S /AD "!Disk!\*!Seek!*"') do (
    if not Defined Again (
      set Again=true
      echo.
      echo Drive !Disk!
      echo ============      
    )
    Set /A C+=1
    Set Folder.!C!=%%?
    echo !C!. %%?
    Echo.