将文件扩展名从.tmp重命名为.txt

Question

我看到有一个filecopy类是文件系统的成员，但我只想更改文件扩展名。是否会重命名文件名的类？

Answer 1

使用此宏，您可以将文件夹中的所有.tmp个文件重命名为.txt。

看一下VBA Name方法：

  

Name语句重命名文件并将其移动到另一个文件   目录或文件夹，如有必要。名称可以跨驱动器移动文件，   但它只能重命名现有目录或文件夹   newpathname和oldpathname位于同一驱动器上。名字不能   创建一个新文件，目录或文件夹。

<强>代码：

Sub rename_files()

    Dim MyFolder As String, MyFile As String, NewName As String, i As Integer

    MyFolder = "C:\Users\User1\Desktop\test_folder\"
    MyFile = Dir(MyFolder & "*.tmp")

    Do While MyFile <> ""
        i = InStrRev(MyFile, ".")
        NewName = Left(MyFile, i - 1) & ".txt"
        Name MyFolder & MyFile As MyFolder & NewName
        MyFile = Dir
    Loop

End Sub