Nhờ trợ giúp đổi tên các file trong folder

Chia sẻ bởi:hands

★★★★★

‹ Cài đặt tiếng Việt để tạo file... Đổi tên File tự động ? ›

Quảng cáo

Nhờ các bác giúp em với ạ.
Em có 1 file excel, Cột A là tên các file ở 1 folder của em, Cột B là tên mới em muốn đổi tên tương ứng bên cột A.
Cả tên mới và tên cũ đều là tên tiếng việt có dấu.
Bác nào biết code giúp em với ạ. Em loay hoay cả ngày vẫn không làm được.
Em cảm ơn ạ!

Thử tạm đoạn code đơn giản này trong khi chờ cách hay hơn

Sub Change_FileName()
Dim Source As String, sTarget As String, sArr(), i As Long, FolderPath As String, Fso As Object
FolderPath = ThisWorkbook.Path ' nhập đúng tên đường dẫn chỗ này
Set Fso = CreateObject("Scripting.FileSystemObject")
With Sheets("Sheet1")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(sArr)
    If sArr(i, 1) <> Empty Then
        Source = FolderPath & "" & sArr(i, 1)
        sTarget = FolderPath & "" & sArr(i, 2)
        If Fso.FileExists(Source) Then
            Fso.CopyFile Source, sTarget
        End If
    End If
Next
End Sub