[Georgio]

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set "sSourceFolder=D:\Otchet"

2>nul pushd "%sSourceFolder%" && (
 for /f "usebackq delims=" %%i in (
  `2^>nul dir /b /a:-d`
 ) do (
  set sVar=%%~ni
  set sVar=!sVar:*PA-=!
  call :sub "%%i" "PA-!sVar:~,4!%%~xi"
 )
 popd
) || (
 echo Can't find source folder [!sSourceFolder!]
 exit /b 1
)

endlocal
exit /b 0

:sub
 (
  2>nul ren %1 %2
 ) || (
  set /a i+=1
  call :sub %1 "PA-!sVar:~,4! !i!%~x2"
 )
 set i=
 exit /b 0

[Iska]

LukAleX, попробуйте так (WSH):

Скрытый текст

Код:

Option Explicit

Dim strSourceFolder
Dim strFileNamePattern

Dim objFSO
Dim objFile

Dim strNewFileName

Dim strTempFolder
Dim iCount


strSourceFolder    = "C:\Мои проекты\0001"
strFileNamePattern = ".*(PA\-.{4}).*(\.pdf)"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strSourceFolder) Then
	With WScript.CreateObject("VBScript.RegExp")
		.IgnoreCase = True
		.Pattern    = strFileNamePattern
		
		strTempFolder = objFSO.CreateFolder(GetTemporaryName()).Path
		
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If .Test(objFile.Name) Then
				With .Execute(objFile.Name).Item(0).Submatches
					strNewFileName = objFSO.BuildPath(strTempFolder, .Item(0) & .Item(1))
					iCount = 2
					
					Do While objFSO.FileExists(strNewFileName)
						strNewFileName = objFSO.BuildPath(strTempFolder, .Item(0) & "-" & CStr(iCount) & .Item(1))
						iCount = iCount + 1
					Loop
					
					objFile.Move strNewFileName
				End With
			End If
		Next
		
		objFSO.MoveFile objFSO.BuildPath(strTempFolder, "*.*"), strSourceFolder
		objFSO.DeleteFolder strTempFolder, True
	End With
Else
	WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
' Серый форум / vbscript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
	Const TemporaryFolder = 2
	
	Dim strTempName
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		Do
			strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetTempName)
		Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
	End With
	
	GetTemporaryName = strTempName
End Function
'=============================================================================

Нумерацию я таки сделал с двойки, а не с единицы.

[LukAleX]

Можно было бы 100 раз тыкнуть в "полезное сообщение", клянусь тыкнул бы.
Спасибо ОГРОМНОЕ за помощь. Все работает отлично.