[Georgio]

Код:

@for /f "delims=" %%i in ('"dir /a-d/b *.jpg"') do @set /a n+=1& cmd /v:on /c ren "%%i" !n!.jpg

[Школьник 5]

[решено] Спасибо огромное!

[Iska]

Имена файлов нужно заменить на цифры 1.jpg, 2.jpg, 3.jpg .... n.jpg Имена файлов могут быть любые - могут содержать символы % и !. В эти символы я, собственно, и уперся при попытке написать переименовалку самостоятельно »

Школьник 5, если отойти от принципа «Только пакетный файл!» (а там ещё надо, по-хорошему, проверять на уже существующие имена вида «1.jpg, 2.jpg, 3.jpg .... n.jpg»), то можно посмотреть в сторону: ReNamer.

[Georgio]

а там ещё надо, по-хорошему, проверять на уже существующие имена вида «1.jpg, 2.jpg, 3.jpg .... n.jpg» »

Iska, ну эта проблема решаема:

Код:

@echo off

for /f %%i in ('"dir /a-d/b *.jpg| find /c /v """') do (
 for /l %%j in (1 1 %%i) do (
  call ren %%j.jpg %%j_%%random%%%%random%%.jpg 2>nul
  )
 )
for /f "delims=" %%i in ('"dir /a-d/b *.jpg"') do (
 set /a n+=1
 cmd /v:on /c ren "%%i" !n!.jpg
 )

exit /b

.




Может встретится и ещё одна "неприятность": в составе имен переименуемых файлов могут быть имена глобальных переменных в окружении знаков процента. Думаю, понятно, к чему это может привести. Но и эта проблема решаема:

Код:

@echo off

for /f "delims=" %%i in ('"dir /a-d/b *.jpg"') do (
 set /a n+=1
 (
 call set /p="%%n%% "<nul
 echo %%i
 )>>.tmp
 )
for /f "tokens=1*" %%i in ('"type .tmp& del .tmp"') do (
 ren "%%j" %%i.jpg
 )

exit /b

.




Таким образом, если объединить оба решения, получится такой код:

Код:

@echo off

for /f %%i in ('"dir /a-d/b *.jpg| find /c /v """') do (
 for /l %%j in (1 1 %%i) do (
  call ren %%j.jpg %%j_%%random%%%%random%%.jpg 2>nul
  )
 )
for /f "delims=" %%i in ('"dir /a-d/b *.jpg"') do (
 set /a n+=1
 (
 call set /p="%%n%% "<nul
 echo %%i
 )>>.tmp
 )
for /f "tokens=1*" %%i in ('"type .tmp& del .tmp"') do (
 ren "%%j" %%i.jpg
 )

exit /b

.

[temphard]

Georgio, Спасибо за код.
Подскажите пожалуйста, как в этом коде указать конкретный путь к каталогу? Чтобы переименование происходило именно в нем.

Код:

@for /f "delims=" %%i in ('"dir /a-d/b *.mp3"') do @set /a n+=1& cmd /v:on /c ren "%%i" !n!.mp3

[megaloman]

Имена файлов могут быть любые - могут содержать символы % и !. В эти символы я, собственно, и уперся при попытке написать переименовалку самостоятельно »

temphard, Если такая пьянка, то это не задача для CMD. Вот VBS.

Код:

BoxIn = "Z:\Box_In"

Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set AllF = FSO.GetFolder(BoxIn).Files
If Err.Number <> 0 Then
    MsgBox """" + BoxIn + """" + vbCrLf + vbCrLf + "Open folder, Err.Number=" + CStr(Err.Number) + vbCrLf + Err.Description
    WScript.Quit 1
End If

With CreateObject("VBScript.RegExp")
    .Pattern = "^~~~.*$"
    .IgnoreCase = True
    .Global = True
    For Each FileIn In AllF
        If Not .Test(FileIn.Name) Then
            FSO.MoveFile FileIn, BoxIn + "\~~~" + FileIn.Name
        End If
    Next

    i = 0
    j = 100000
    For Each FileIn In AllF
        If .Test(FileIn.Name) Then
            i = i + 1
            j = j + 1
            FSO.MoveFile FileIn, BoxIn + "\" + CStr(i) + "." + FSO.GetExtensionName(FileIn)
'            FSO.MoveFile FileIn, BoxIn + "\" + Mid(CStr(j), 2) + "." + FSO.GetExtensionName(FileIn)
        End If
    Next
End With
On Error GoTo 0

Красный закомментированный вариант для переименования файлов в вид 00001.ext 00002.ext ....
Если нужен такой вид, то закомментируйте предыдущую строку и откомментируйте эту (убрать ')
При этом если файлов более 99999, то увеличьте число нулей в j = 100000

[megaloman]

temphard,

Вот еще вариант. Введен фильтр на расширение файлов в папке.
Можно указать папку явно. Можно указать её в аргументе в кавычках при вызове скрипта.
Можно создать ярлык на этот скрипт и в проводнике затягивать обрабатываемую папку на него

Код:

BoxIn = "Z:\Box_In"     ' Путь к папке (при отсутствии аргумента в вызове скрипта)
Ext = "mp3"             ' Расширение файлов

With WScript.Arguments
    If .Count <> 0 Then
        BoxIn = .Item(0)
    End If
End With

Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set AllF = FSO.GetFolder(BoxIn).Files
If Err.Number <> 0 Then
    MsgBox """" + BoxIn + """" + vbCrLf + vbCrLf + "Open folder, Err.Number=" + CStr(Err.Number) + vbCrLf + Err.Description
    WScript.Quit 1
End If

With CreateObject("VBScript.RegExp")
    .Pattern = "^.*\." + Ext + "$"
    .IgnoreCase = True
    .Global = True
    For Each FileIn In AllF
        If .Test(FileIn.Name) Then
            FileIn.Name = FileIn.Name + "~~~"
        End If
    Next

    i = 0
    j = 100000
    .Pattern = "^.*\." + Ext + "~~~$"
    For Each FileIn In AllF
        If .Test(FileIn.Name) Then
            i = i + 1
            j = j + 1
            FileIn.Name = CStr(i) + "." + Ext
'            FileIn.Name = Mid(CStr(j), 2) + "." + Ext
        End If
    Next
End With
On Error GoTo 0

MsgBox "Done"

[temphard]

Цитата temphard:
Georgio »

Код:

@for /f "delims=" %%i in ('"dir /a-d/b *.mp3"') do @set /a n+=1& cmd /v:on /c ren "%%i" !n!.mp3 »[/q]

Извините, я новичок и мне не понятно как в данном коде указать путь к конкретному каталогу, например С:\file\
Пожалуйста объясните подробнее, спасибо.

[alpap]

указать путь »

здесь

...in ('dir /a-d/b "С:\file\*.mp3"') do...»

и обратите внимание на парные кавычки, у меня они расставлены так как и должны быть.