Знаю що в Microsoft PowerToys є інструмент для масового перейменування
https://learn.microsoft.com/windows/powertoys/powerrename

Написав програмку на VBScript. Не перейменовує файли в підкаталогах. Змінює назву файлів таким чином що видаляється рядок символів що починається з - і закінчується . По задумці має виходити так: 11115-(81)-aa13.jpeg -> 11115.jpeg. Запускати на свій страх. Файли копіюються з новими назвами з одного каталогу до іншого.

• Копіюєш текст нижче в текстовий редактор і зберігаєш в файлі з будь–якою назвою.

• В каталозі зі збереженим файлов відриваєш вікно cmd.exe і пишеш там cscript.exe massrname.vbs /folder:"d:\mass" /d:"c:\dd" та тиснеш клавішу Enter. massrename.vbs треба замінити на назву файлу в якому було збережоно наведений нижче текст а d:\mass на шлях до каталогу з файлами які треба перейменувати. c:\dd замінюш на шлях до каталогу куди будуть копіюватися файли з новими назвами. Шляхи до каталогів мають бути в лапках.

Dim objRegExp
Set objRegExp = CreateObject("VBScript.RegExp")
With objRegExp
    .IgnoreCase = True
    .Pattern = "-.+\."
End With

Dim obj_shell
Set obj_shell = CreateObject("WScript.Shell")

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim oFolder

Set oFolder = oFSO.GetFolder(WScript.Arguments.Named("folder"))

Dim d
d = WScript.Arguments.Named("d")

Dim oMatches
For Each oFile In oFolder.Files
        Set oMatches = objRegExp.execute(oFile.Name)
        If oMatches.count > 0 Then
            Dim m
            m = d & "\" & Replace(ofile.Name, oMatches.item(0), ".")
            WScript.Echo ofile.Name & " -> " & m
            oFSO.CopyFile ofile.Path, m
        End If
Next
' Beep
WScript.StdOut.Write Chr(7)

всім дякую за допомогу, попробую скрипт і команди!

Рекомендую познайомитись з PowerShell, набагто більше можливостей )

Ну так це добре коли одні беруть в інших якусь ідею/підхід який зручний/корисний. Чого вартий наприклад оператор "|", якого немає в cmd. І порівняно з юніксовими командами то cmd взагалі дуже бідний. А от PowerShell вже "потужний" інструмент ). Правда назви команд трохи може не звичні, в юнікс-системах вони більш лаконічні.

І наприклад в запропонованому вами варіанті з циклами - теоретично ітерацій більше ніж самих файлів, плюс вкладені цикли. А все через обмежені властивості cmd )

Очікується, що вкладений цикл робитиме 0 або 1 ітерацію за раз. Якщо ітерацій 2 або більше, це означає, що в нас кілька файлів, яким присвоюється однакове нове ім'я — чого за умовами задачі не мало б бути.

Проблемою є не можливості cmd, а відсутність стандартної утиліти назразок sed (яка, взагалі-то, не є частиною командної оболонки — це окрема програма, і в юніксах також). Якщо встановлено sed з GnuWin32 (чи іншого порту юніксових утиліт), можна зробити так:

for /f "tokens=1,2" %i in ('"dir/b|sed 's/\([0-9a-zA-Z]*\)-[^^.]*\(.*\)/\0 \1\2/; / /!d'"') do ren %i %j

Добре, визнаю, це досить громіздко й неінтуїтивно, вимагає встановлення додаткової програми sed, і якщо цей код використовувати не безпосередньо в командному рядку, а в батнику, то його доведеться місцями переробити (як мінімум, позамінювати % на %% і, можливо, збільшити кількість ^). Але це не те, що cmd принципово не може робити через якусь свою обмеженість порівняно з bash.

І ще трохи причешу свій код:

dir/b *-*.*|for /f "tokens=1,2 delims=:" %i in ('sed "s/\([^-]*\)-[^.]*\(.*\)/\0:\1\2/"') do ren "%i" "%j"

Пайп винесено за межі параметрів циклу, що дозволяє зменшити кількість лапок і використовувати нормальну кількість ^ у регексах.