The following function renames files. 'Purpose : Renames a file 'Inputs : sOriginalName The original path and file name. ' sNewName The new path and file name. ' [bOverWrite] If True will overwrite any other file which might ' have the new file name. 'Outputs : Returns True if succeeded in renaming the file. 'Author : Andrew Baker 'Date : 03/09/2001 14:17 'Notes : 'Revisions : Function FileRename(sOriginalName As String, sNewName As String, Optional bOverWrite As Boolean) As Boolean On Error GoTo ErrFailed If Len(Dir$(sOriginalName)) > 0 And Len(sOriginalName) > 0 Then 'Check File Exitsts If bOverWrite = True And Len(Dir(sNewName)) > 0 Then 'Delete file with same name as new file VBA.Kill sNewName End If Name sOriginalName As sNewName FileRename = True End If Exit Function ErrFailed: 'Failed to Rename File FileRename = False On Error GoTo 0 End Function
'Purpose : Renames a file
'Inputs : sOriginalName The original path and file name.
' sNewName The new path and file name.
' [bOverWrite] If True will overwrite any other file which might
' have the new file name.
'Outputs : Returns True if succeeded in renaming the file.
'Author : Andrew Baker
'Date : 03/09/2001 14:17
'Notes :
'Revisions :
Function FileRename(sOriginalName As String, sNewName As String, Optional bOverWrite As Boolean) As Boolean
On Error GoTo ErrFailed
If Len(Dir$(sOriginalName)) > 0 And Len(sOriginalName) > 0 Then 'Check File Exitsts
If bOverWrite = True And Len(Dir(sNewName)) > 0 Then
'Delete file with same name as new file
VBA.Kill sNewName
End If
Name sOriginalName As sNewName
FileRename = True
End If
Exit Function
ErrFailed:
'Failed to Rename File
FileRename = False
On Error GoTo 0
End Function
filename="c:\a\aaa.exe"
shell ("ren " & filename & " bbb.exe")
重新命名一个文件、目录、或文件夹。语法Name oldpathname As newpathnameName 语句的语法具有以下几个部分:部分 描述
oldpathname 必要参数。字符串表达式,指定已存在的文件名和位置,可以包含目录或文件夹、以及驱动器。
newpathname 必要参数。字符串表达式,指定新的文件名和位置,可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。
说明 Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要,Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时,只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。在一个已打开的文件上使用 Name,将会产生错误。必须在改变名称之前,先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符
Name 语句示例
本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。
Name OldName As NewName ' 更改文件名。
OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名,并移动文件。
Kill 语句
从磁盘中删除文件。语法Kill pathname必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。说明在 Microsoft Windows 中,Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。