@echo off &setlocal enableextensions &chcp 1251 >nul
rem Создать в целевой папке ссылки с сохранением путей
rem для одноимённых с выделенными файлов из выделенных папок
rem Пример параметров для TC: "%L" "%T"
set "msk=%~1" &set "trg=%~2"
for /f "delims=" %%l in ('findstr /ec:\ "%msk%"') do call :p "%%l" "%%~dpl."
goto :eof
:p
for /f "delims=" %%f in (
'for /f "delims=" %%a in ^('findstr /vec:\ "%msk%"'^) do @dir /a-d/b/s "%~1%%~nxa" 2^>nul'
) do call :f "%%f" %2
goto :eof
:f
set "p=%~dp1"
call set "p=%%p:%~dp2=%%"
if not exist "%trg%\%p%" md "%trg%\%p%"
fsutil hardlink create "%trg%\%p%%~nx1" %1
goto :eof
|