Option Explicit

Private Sub Command1_Click()
Dim oldname As String
Dim newname As String
If Right(Dir1.Path,1) = "\" Then
oldname = Dir1.Path & File1.FileName
Else
oldname = Dir1.Path & "\" & File1.FileName
End If
newname = InputBox("请输入新文件的名称","输入框")
If newname <> "" Then
Name oldname As newname
MsgBox "文件名已被更改，请查看该文件所在的路径。","提示框"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

成品图