Giúp đỡ liệt kê các file trong Folder có nhiều Subfolder

[babyheomoi]

Em tìm trên GPE có 1 file cũng lâu về liệt kê các file hoặc forder con của 1 folder!
Em thấy công việc của em cũng cần như vậy nên em có ý tưởng, nhưng gặp chút rắc rối khi viết code, nhờ anh chị em giúp đỡ: Giúp em sửa code để có thể liệt kê tất cả các file (kể cả các file trong các sub folder luôn), nhưng trừ các file đệm, file ẩn!
Em gửi file code của em lên mọi người nghiên cứu giúp em!
Em cám ơn!

 

[dhn46]

Sao bạn không hỏi tác giả Code luôn.

Trong khi chờ đợi bạn sửa như sau để có kết quả mong muốn

    If f1.Attributes <> 38 Then
        If f1.Attributes <> 34 Then
            Cells(dong, 1).Formula = dong - 8
            Cells(dong, 2).Formula = f1.Name
            Cells(dong, 3).Formula = f1.Type
            Cells(dong, 4).Formula = f1.DateLastModified
            Cells(dong, 5).Formula = "=HYPERLINK(""" & f1.Path & """,""" & "Open File" & """)"
            Cells(dong, 6).Formula = f1.Path
            Cells(dong, 6).Formula = f1.Attributes
            dong = dong + 1
        End If
    End If
    Next

 

[be_09]

Em tìm trên GPE có 1 file cũng lâu về liệt kê các file hoặc forder con của 1 folder!
Em thấy công việc của em cũng cần như vậy nên em có ý tưởng, nhưng gặp chút rắc rối khi viết code, nhờ anh chị em giúp đỡ: Giúp em sửa code để có thể liệt kê tất cả các file (kể cả các file trong các sub folder luôn), nhưng trừ các file đệm, file ẩn!
Em gửi file code của em lên mọi người nghiên cứu giúp em!
Em cám ơn!

Tham khảo File trong bài 16 của Link sau xem có dùng được không?
http://www.giaiphapexcel.com/diendan/threads/viết-code-tìm-kiếm-các-file-trong-folder.98173/

 

[babyheomoi]

Đây là file em làm, nhưng mấy bác có cách nào cho nó loại bỏ những file như ~WRL0764.tmp hay ko?
Hoặc chỉ lấy những file word, excel, pdf hay không ạ?
Hoặc có cách nào loại hết file temp hay rác trong các folder đó không ạ?
Ah còn nữa, file này em không nhớ em làm hay chủ nhân của file cũ đã protect workbook! Mọi người có cách nào gỡ ra ko?
Em copy code sang file mới thì báo lỗi ở dòng:
Set MyObject = New Scripting.FileSystemObject
Cho em hỏi là tại sao, cùng kiểu file và cùng nội dung, cùng code nhưng copy sang file mới lại bị lỗi ạ!