[решено] Пакетное переименование с создание сложных имён файлов

[alexmoreman]

вот собственно поискав в интернете и если не ошибаюсь на этом форуме нашол генератор пароля и решил его приспособить для пакетной переименовки файлов (более 12000 файлов) но попробовав получается это сделать только по одному файлу (переименовка) тоесть необходимо каждый раз запускать bat для изменения имени одного файла.. помогите решить проблему я так понимаю решение остаётся за малым.. заранее спасибо..
SetLocal EnableDelayedExpansion
set I=15
set N=65
set CHAR=0123456789_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWQYZ
:LOOP
set /a R=%N%*%random%/32768
set NM=!CHAR:~%R%,1!%NM%
set /a I-=1
if %I% GTR 0 goto LOOP
for %%i in (*.jpg) do call ren "%%i" "%%NM%%.jpg"

[Anonymоus]

@Echo Off
SetLocal EnableDelayedExpansion
:: Расширение файлов для переименования
Set ext=txt
:: Путь к папке с файлами
Set FPath=.

For /F "tokens=*" %%A In ('Dir "%FPath%\*.%ext%" /B /A-D') Do (
Call :RndGen
Ren "%FPath%\%%A" "!NM!.%ext%"
)
Pause && Exit

:RndGen
Set NM=
Set I=15
Set N=65
Set Charset=0123456789_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWQYZ
:RndGenLoop
Set /A R=%N%*%Random%/32768
Set NM=!Charset:~%R%,1!%NM%
Set /A I-=1
If %I% GTR 0 GoTo RndGenLoop


Стандартное напоминание: если в именах файлов предполагается наличие русских букв - сохраняйте в 866 кодировке.

[gora]

Set N=65»
УточнениеSet N=63

[alexmoreman]

Anonymоus, спасибо большущее, работает как часики.

[Anonymоus]

gora, все верно, и правда, 63. Скопировал из первого поста, не глядя.