Copy folder file names into a sheet

[Javier F Lopez]

Hi Everybody... i need your help. I'm "new" at VBA... i have a folder with a lot of files in it and i need to copy their names into a excel spread sheet... i think i could do it using something like... for each file y folder xx, copy filename... =)

Could you please help me?

 

[Kaps_mr2]

I have just done this for a client. Here is the code you need :-

Sub List_All_The_Files_Within_Path()
Dim Row_No As Integer
Dim Nf_Files As Integer
Dim kk25 As Integer

Row_No = 6

With Application.FileSearch
.NewSearch
.LookIn = File_Path
.Filename = "*.*"
.SearchSubFolders = False
.Execute


Nf_Files = .FoundFiles.Count


For kk25 = 1 To Nf_Files
Worksheets("Check").Cells(kk25 + 5, 15).Value = .FoundFiles(kk25)

Next kk25


End With

End Sub

You need to change the woorksheet name from "Check" to whatever you have called it. Thanks

kaps

 

[Javier F Lopez]

Thanks a lot!!! You just saved me a lot of time!!
Also, i think i will get a smile from my coworkers!!!

Have a nice day!!