Đổi tên nhiều thư mục + file (1 Viewer)

[hieuphong]

Dear mọi người.

Mình cần mọi người trợ giúp Macro đổi tên hàng loạt thư mục và hàng loạt file

1. Đổi tên hàng loạt thư mục

Mô tả: Mình có một thư mục cha, bên trong có rất nhiều thư mục nhỏ
Mong muốn: Có macro với file excel sheet (1): cột A: tên folder cũ, cột B: tên folder mới (Đầu vào điền bằng tay)
Sau khi chạy Macro thì toàn bộ thư mục con trong thư mục cha cũ sẽ được đổi tên và coppy sang thư mục cha mới (file trong thư mục con vẫn được coppy cùng)

ví dụ: thư mục cha cũ: Giaiphapexcel
Thư mục con trong Giaiphapexcel: New1, New2, New3
File excel có cột A, B:
New1 GP1
New2 GP2
New3 GP3

Sau khi chạy Macro thì các folder con trong folder Giaphapexcel sẽ được thay đổi tên tương ứng (đổi từ cột A->cột B) và coppy sang thư mục cha mới: Giaphapexcel_New

2. Đổi tên hàng loạt file

Mô tả: Mình có một thư mục, trong đó có rất nhiều file lộn xộn tuy nhiên vẫn có thể nhận biết được bằng Keyword
Mong muốn: Sau khi chạy macro các file lộn xộn sẽ được đổi sang cùng một tên (tên mặc định do mình chọn) và có số thư tự ở cuối

Ví dụ:
Các file lộn xộn:
BTaaaadddaa
Btaaaaaaaa
bTaaaaabxy
btaaaaagql
Các file lộn xộn trên có keyword:BT,bt,Bt,bT. Sau khi chạy Macro sẽ thành (không cần quan tâm thứ tự trong file lộn xộn) với tên tự chọn Giaiphapexcel kết quả
Giaiphapexcel_01
Giaiphapexcel_02
Giaiphapexcel_03
Giaiphapexcel_04

Cảm ơn mọi người rất nhiều.