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've just done this for a client. Here is the code that I used. You will need to change the worksheet name from "Check" to whatever you have called your workbook.

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

thanks

Kaps