◆ファイル・フォルダの名前を変更する・移動する

  ファイルやフォルダの名前を変更するには、 Name ステートメントを使用します。
  Path を変更すると移動もできます。

  Name OldPathname As NewPathname

  ファイル名を変更して移動する例です。

Sub NameFile()

    Dim FileNamePath, FileName, NewFileName, FolderPath, tail As String
    Dim i As Integer
    
    'ファイルのパスを取得
    FileNamePath = SelectFileNamePath
    
    'ParentPath と ファイル名の分離
    For i = Len(FileNamePath) To 1 Step -1
        If Mid(FileNamePath, i, 1) = "\" Then
            Exit For
        End If
    Next
    
    '参考:フォルダのパスを取得
'    FolderPath = Mid(FileNamePath, 1, i - 1)

    'ファイル名を取得
    FileName = Mid(FileNamePath, i + 1, Len(FileNamePath))
    
    'ファイル名から拡張子の分離
    For i = Len(FileName) To 1 Step -1
        If Mid(FileName, i, 1) = "." Then
            Exit For
        End If
    Next
    
    '拡張子
    tail = Mid(FileName, i + 1, Len(FileName))
    
    NewFileName = _
    InputBox("新しいファイル名を入力してください", "ファイル名の入力")
    
    '移動先のフォルダの選択
    FolderPath = FolderSelect
    
    'ファイルの移動
    Name FileNamePath As FolderPath & "\" & NewFileName & "." & tail

End Sub

Function SelectFileNamePath() As String
    SelectFileNamePath = Application. _
               GetOpenFilename("ファイルの選択 (*.*),*.*")
End Function

Function FolderSelect() As String
    
    Dim Shell As Object
    
    Set Shell = CreateObject("Shell.Application") _
    .BrowseForFolder(0, "フォルダを選択してください", 0, "デスクトップ")
    
    If Shell Is Nothing Then
        FolderSelect = ""
    Else
        FolderSelect = Shell.Items.Item.Path
    End If

End Function