クラスを使用してファイル名変更を作ってみた

'****************************
'* ファイル名変更、拡張子は同じ。20230224
'* myFileName：ファイル名
'* myFileRenameWoExtension：変更後のファイル名、拡張子除く
'* myPath：ファルダ
Sub FileRenameSameExtension(myFileName As String, myFileRenameWoExtention As String, myPath As String)
    Dim F As FileObj: Set F = New FileObj
    
    ' フォルダの確認
    If Not F.ExistFolder(myPath) Then
        MsgBox "フォルダが確認できませんでした"
        Exit Sub
    End If
    ' ファイルの確認
    If Not F.ExistFile(myPath & "\" & myFileName) Then
        MsgBox "ファイル名が確認できませんでした"
        Exit Sub
    End If
    ' 変更する同名ファイルがないかの確認
    F.Name = myPath & "\" & myFileName
    Dim myFileRename As String: myFileRename = myFileRenameWoExtention & "." & F.Extension
    If F.ExistFile(myPath & "\" & myFileRename) Then
        MsgBox "移動先に同名のファイルがあります"
        Exit Sub
    End If
    
    ' ファイル名変更
    F.Rename (myFileRename)
    
    Set F = Nothing
    
End Sub

Sub FileRenameSameExtension(myFileName As String, myFileRenameWoExtention As String, myPath As String)

Dim F As FileObj: Set F = New FileObj

If Not F.ExistFolder(myPath) Then
    MsgBox "フォルダが確認できませんでした"
    Exit Sub
End If

If Not F.ExistFile(myPath & "\" & myFileName) Then
    MsgBox "ファイル名が確認できませんでした"
    Exit Sub
End If

F.Name = myPath & "\" & myFileName
Dim myFileRename As String: myFileRename = myFileRenameWoExtention & "." & F.Extension
If F.ExistFile(myPath & "\" & myFileRename) Then
    MsgBox "移動先に同名のファイルがあります"
    Exit Sub
End If

F.Rename (myFileRename)

Set F = Nothing

Sub ExampleUsage()
    ' ファイル名を変更
    Call FileRenameSameExtension("example.txt", "new_example", "C:\TEMP")
End Sub