[DJ Mogarych]

Powershell, должно работать, по идее:

Код:

$folders = dir "C:\рабочая папка" -directory
$shortcuts = dir "C:\1\*.lnk"

foreach ($folder in $folders) {
    if ($folder.basename -in $shortcuts.basename) {
    move "$($folder.FullName)" -Destination "$(($shortcuts.directoryname)[0])"
    }
}

[alpap]

а если структура такая?

Код:

C:\РАБОЧАЯ ПАПКА
├───2
│   └───22
│       └───recor
│               bbb.txt
│               
├───ddd
└───recor
        1.txt
        2.txt

так будет добавлена единичка (или n+1) к имени перемещаемой папки

Код:

@echo off
set "d_lnk=C:\1"
set "ext=lnk"
set "d_work=C:\рабочая папка"
set "d_out=C:\OUT"

if not exist "%d_out%" md "%d_out%"
for /f "delims=" %%a in ('dir /ad/b/s "%d_work%"') do call :l "%d_lnk%" "%ext%" "%d_out%" "%%a"
pause& exit

:l
 setlocal
  pushd "%~3"
   if exist "%~1\%~n4.%~2" if not exist "%~n4%n%" (>nul xcopy "%~4" "%~n4%n%\"& >nul 2>&1 rd /s /q "%~4") else (set /a n+=1& goto l)
  popd
 endlocal
exit /b

[DJ Mogarych]

Про рекурсивный перебор в ТЗ явно не сказано.

[alpap]

пока он (рекурсивный перебор) случайно не нарисовался да еще именно с повтором имени.

[Iska]

Это как обычно .

[Sham]

рекурсивно можно и так

Код:

$lnkdir = 'C:\1'
$folddir = 'C:\рабочая папка'
$names = (get-childitem $lnkdir '*.lnk').BaseName

get-childitem $folddir -directory -recurse | foreach {
	if ($_.BaseName -in $names) {
		$f0 = $lnkdir, $_.BaseName -join '\'; $c = $null
		while (test-path $($fold = $f0 + $c; $c++; $fold) -pathtype container) {
			"$fold exists, adding 1"
		}
		move-item $_.FullName $fold -verbose
	}
}

[Евгений.Карпов@vk]

Спасибо огромное за Ваши ответы. Всё работает.