[greg zakharov]

Допустим, файл выглядит как:

Код:

F:\Папка\2015_02_16_17_21-senyor_pomidor-Приветственное_сообщение-всем_Пользователям.txt
E:\Папка\2016_02_16_19_33-siski_rulyat_mirom-Приветственное_сообщение-vip_Пользователям.txt
...

Тогда можно извлечь подстроку по токену:

Код:

@echo off
  setlocal&chcp 1251>nul
    for /f %%i in (spisok.txt) do (
      for /f "tokens=2 delims=-" %%j in ("%%i") do (
        echo:%%j>>puk.txt
      )
    )
  endlocal&chcp 866>nul
exit /b

К слову, если в наличии имеется gawk:

Код:

gawk -F "-" '{print $2}' spisok.txt>puk.txt

На PS >= 4 версии:

Код:

(gc .\spisok.txt).ForEach{($_ -split '-')[1]}|Out-File puk.txt -enc default

[Georgio]

Код:

@<"FolderStr.txt">"new.txt" (for /f "tokens=2 delims=:" %%i in ('more') do @for /f "tokens=2 delims=-" %%j in ("%%~ni") do @echo.%%j)