重命名文件擴展名爲.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