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

成品图

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!