重命名文件扩展名为.txt

Question

我看到有一个filecopy类，它是文件系统中的一员，但我想只是改变文件扩展名。是将重命名文件名的类吗？

Answer 1

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

看看在VBA Name方法：

的名称声明重命名文件，如有必要将其移动到不同的 目录或文件夹。名称可以跨驱动器移动文件， 但它只能在 新路径名和旧路径名位于同一驱动器上时重命名现有目录或文件夹。名称不能 创建一个新的文件，目录或文件夹。

代码：

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