如何对一个文件改名

[任何风]

如何对一个文件改名

[bts2003]

用CHDIR函数

[RUKYO]

'在同一目录把文件改名，目录放有一个Text1.Txt
Private Sub Command1_Click()
Dim OldName, NewName
OldName = App.Path & "\Text1.Txt": NewName = App.Path & "\Text2.Txt" '定义文件名。
Name OldName As NewName '更改文件名。
End Sub

'把文件改名后移动到另一个目录，注意必须是同一驱动器下才有效，目录放有一个Book1.Xls
Private Sub Command2_Click()
Dim OldName, NewName
OldName = App.Path & "\OLDFILE\Book1.xls": NewName = App.Path & "\NEWFILE\Book4.xls" ' 定义文件名。
Name OldName As NewName ' 更改文件名。
End Sub