VB工程--百例53--文件改名

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

成品图