[deepred]

такая же тема, но *****.vbs

Код:

 Option Explicit 
Dim objFSO, objFile
Dim strPath2SourceFolder, strSourceName
Dim intPrefix, strobjFileName, strobjFileExtension
Dim intErrLevel
   
strPath2SourceFolder   = "F:\2\part_name\dir_0014"
strSourceName="luna_msstyles_BLUE_"
intPrefix   = Len(strSourceName)   
intErrLevel = 0

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")      
If objFSO.FolderExists(strPath2SourceFolder) Then        
For Each objFile In objFSO.GetFolder(strPath2SourceFolder).Files
If UCase(Left(objFile.Name, intPrefix)) = UCase(strSourceName) Then
strobjFileName = Replace(objFSO.GetBaseName(objfile.Name), strSourceName, "",1)
strobjFileExtension = Mid(objFSO.GetExtensionName(objFile.Name),1)

objFile.COPY strPath2SourceFolder & "\" & strobjFileName & "." & strobjFileExtension
objFile.Delete         
End If          
Next
Else
WScript.Echo "Source folder [" & strPath2SourceFolder & "] is not exists."     
intErrLevel = 1
End If 
Set objFSO = Nothing 
WScript.Quit intErrLevel

и последний *.bat

Код:

Echo on&Chcp 866&SetLocal EnableDelayedExpansion&cls

set $DSF=F:\2\part_name\dir_0014\*.bmp
set del1=luna_msstyles_BLUE_
set del2=_BMP

for %%a in ("%$DSF%") do call :action "%%a" "%%~nxa" 
pause & goto :eof

:action
set $SFN=%~1 && set $SFNn=%~2 && set $SFNn=!$SFNn:%del1%=! && set $SFNn=!$SFNn:%del2%=!
ren %$SFN% %$SFNn%
endlocal & goto :eof