lấy tên các file trong folder vào 1 sheet

[lightd]

các bác cao thủ giúp em với , tình hình em có 1 folder hơn 100 file giờ sếp muốn làm list tên các file đó vào 1 sheet Excel bác nào giúp em với ạ.
VBA viết như thế nào ạ

 

[dynamic503]

mong bạn chỉ giáo thêm

alo bác giúp với!

 

[dynamic503]

Dạo này cao thủ ẩn danh hết rồi

 

[quanluu]

ý mình chỉ lấy tên folder "Picture" trong ví dụ trên bác ạ
Cũng với file trên mà mình chỉ muốn lấy danh sách của những file có đuôi .xls và từ ngày đến ngày thì sửa thế nào bác?
Thanks

Bạn lấy ví dụ minh họa xem thế nào.

 

[dynamic503]

Bạn lấy ví dụ minh họa xem thế nào.

Bạn xem giuos file trang trước mình có đính kèm đó

 

[quanluu]

Bạn xem giuos file trang trước mình có đính kèm đó

File bạn dung là của bác be09, bạn liên hệ tác giả.
Thứ 1. Mình ko thấy hiện tượng thiếu file
Thứ 2. Lấy tên folder thì bạn sửa: Cells(iRow, 7).Formula = Right(FileItem.ParentFolder, InStr(StrReverse(FileItem.ParentFolder), "") - 1)

 

[be_09]

Tôi sửa File trên lại, chỉ lấy tên các Folder cha, con, cháu, chắc vào 1 cột, mục đích để biết File nào nằm trong Folder nào mà thôi.

 

[dynamic503]

Tôi sửa File trên lại, chỉ lấy tên các Folder cha, con, cháu, chắc vào 1 cột, mục đích để biết File nào nằm trong Folder nào mà thôi.

Ý mình là chỉ lấy tên file không có đuôi, cái code
Cells(iRow, 4).Formula = FileItem.Name
code trên thì lấy tên file có cả đuôi

Cells(iRow, 5).Formula = FSO.GetExtensionName(FileItem.Name)

Public Sub ListFilesInFolder(SourceFolder As Scripting.folder, IncludeSubfolders As Boolean)
On Error Resume Next
For Each FileItem In SourceFolder.Files
If FSO.GetExtensionName(FileItem.Name) = "*.xls*" Then
' display file properties
Cells(iRow, 2).Formula = iRow - 8
Cells(iRow, 3).Formula = FileItem.ParentFolder.Name
Cells(iRow, 4).Formula = FileItem.Name
'Cells(iRow, 5).Formula = FileItem.Type
Cells(iRow, 5).Formula = FSO.GetExtensionName(FileItem.Name)
Cells(iRow, 6).Formula = FileItem.DateLastModified
' Cells(iRow, 7).Formula = "=HYPERLINK(""" & FileItem.Path & """,""" & "Open File" & """)"

iRow = iRow + 1 ' next row number
Else
End If
Next FileItem



If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder, True
Next SubFolder
End If


Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing

Call ResultSorting(xlAscending, "C9", "D9", "E9")

End Sub

code này có 1 số file trong một số folder con nó ko hiển thị đuôi file!
Ví dụ mình chỉ tìm và lleen danh sách cá file có đuôi là .xls* thì thêm code này nó cũng lấy thừa file và có những hàng có chỗ trống:

 

[10hkem]

Chia sẻ với các bạn 1 tool lấy danh sách file trong thư mục. Code chủ yếu là tìm trên mạng và mình chỉnh sửa thêm cho phù hợp với mục đích cá nhân. File không khóa pass để các bạn tiện tham khảo.
mình đã test với thư mục khoảng 80.000 file, list ra trong chưa đầy 2 phút.

Em muốn kết hợp đổi tên file luôn sau khi liệt kê danh tên file cùng đường dẫn. Anh có thể giúp em liên kết thêm chức năng đổi tên file theo danh sách được liệt kê như file phía diowis dc không ạ! Em cảm ơn anh.