Реализация "грамотного" переименования

Option Explicit
 
Dim oFSO, Root, myfiles, fil, myFolders, fold
 
Sub command1()
    on error resume next
    'здесь задается папка, например folder="c:\temp" (сейчас app.path - это папка с EXE-шником)
    Dim folder: folder = "E:\Bash"
 
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set Root = oFSO.GetFolder(folder)
    
    scanFolder Root
 
End Sub
 
Function scanFolder(fold)
    on error resume next
    Dim newFN
 
    Set myfiles = fold.Files
 
    For Each fil In myfiles
 
        If LCase(Right(fil.Name, 4)) = ".cmd" Then
 
            newFN = Left(fil.Name, InStrRev(fil.Name, ".")) & "bat"
            
            If Not (oFSO.fileExists(fold.Path & "\" & newFN)) Then
 
                fil.Name = newFN
            
            End If
 
        End If
 
    Next
 
    Set fil = Nothing
    Set myfiles = Nothing
 
    Set myFolders = fold.Subfolders
 
    'Раскомментируйте, если требуется переименовать в подкаталогах тоже
    'dim subf
    'For Each subf In myFolders
    '    scanFolder subf
    'Next
    'set subf = nothing
 
    Set myFolders = Nothing
 
End Function