Đổi tên các thư mục theo đường dẫn cho trước

[vonguyen3745]

Các bác giúp em đổi tên các thư mục theo đường dẫn:

 

[Maika8008]

Các bác giúp em đổi tên các thư mục theo đường dẫn:
View attachment 263945

Bạn dùng code đếm file của tôi kết hợp với tìm đọc về filesystemobject để biến nó thành việc đổi tên folfer xem!

 

[vonguyen3745]

Em nghiên cứu mấy hôm rồi mà chưa được, bác nào biết hỗ trợ em với! thanks

 

[Phuocam]

Em nghiên cứu mấy hôm rồi mà chưa được, bác nào biết hỗ trợ em với! thanks

Ý của bạn muốn: thư mục 123 sẽ thành 1?

Sub Rename_Folder()
Dim Fso As Object
Dim oFolder As Object
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
    For i = 1 To 7
        Set oFolder = Fso.GetFolder(Range("A" & i).Value)
        Fso.Name = Range("B" & i).Value
    Next i
End Sub

 

[vonguyen3745]

Ý của bạn muốn: thư mục 123 sẽ thành 1?

Sub Rename_Folder()
Dim Fso As Object
Dim oFolder As Object
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
    For i = 1 To 7
        Set oFolder = Fso.GetFolder(Range("A" & i).Value)
        Fso.Name = Range("B" & i).Value
    Next i
End Sub

Em chạy nó báo lỗi này

 

[Maika8008]

View attachment 264034
Em chạy nó báo lỗi này

Bạn sửa lại thành FSO.FolderName thử xem.

 

[quanluu]

View attachment 264034
Em chạy nó báo lỗi này

Bạn sửa lại ntn:
oFolder.Name

 

[vonguyen3745]

OK rồi các bác. Thanks!