重命名文件或文件夹

技巧1

重命名文件或文件夹

使用Name 语句可以重命名文件或文件夹，如下面的代码所示。

Sub Filename( )

On Error Resume Next Name ThisWorkb ook.Path &"\123" As ThisWorkb ook.Path & "\ABC"

Name ThisWorkb ook.Path &

"\123.xls "As ThisWorkb ook.Path &

"\ABC\ABC .xls"

End Sub

过程使用Name语句重命名示例文件所在文件夹中的“123”文件夹和“123.xls”Excel文件并将重命名后的Excel文件移动到重命名后的文件夹中。

Name语句重新命名一个文件、目录、或文件夹，语法如下：Name oldpathna me As newpathna me

参数oldpathna me是必需的，字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。

newpathn ame是必需的，字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。

第2行代码启动错误处理程序，因为在重命名过程中如果参数oldpathna me指定的文件或文件夹不存在会发生“文件未找到”错误，所以使用On Error Resume Next语句忽略错误。

第3行代码使用Name 语句将示例文件所在文件夹中的“123”文件夹重命名为“ABC”文件夹。

使用Name 语句将示例文件所在文件夹中的“123.xls”Excel文件重命名为“ABC.xls ”文件并移动到“ABC”文件夹中。在运行Filename 过程前请确认示例文件所在文件夹中包含一个“123”文件夹和一个“123.xls”Excel文件。