@echo off &setlocal enableextensions
:: Перемещает выделенные файлы
:: в папки с именем файла без последних X символов
:: Пример параметров: "%WL" 2 "Приставка_" "_суффикс"
:: http://forum.wincmd.ru/viewpost.php?p=96594
set /a l=2 &set /a l=%2
set "pre=%~3" &set "suf=%~4"
for /f "delims=" %%f in ('type "%~1"') do call :m "%%f"
goto :eof
:m
set "D=%~n1"
call set "D=%%D:~0,-%l%%%"
if "%D%"=="" set "D=%~n1"
call set "D=%pre%%%D%%%suf%"
if not exist "%D%" md "%D%\"
move %1 "%D%\"
goto :eof
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
