Sub List_Path_Of_Files() 'List Files (entire path) from a given directory in Column A of current excel worksheet 'requires a folder picker to be perfect Dim MyFolder As String Dim MyFile As String Dim a As Integer MyFolder = "C:\Test\" ' <-- Change to your folder MyFile = Dir(MyFolder & "*.*") a = 0 Do While MyFile <> "" a = a + 1 Cells(a, 1).Value = MyFolder & MyFile MyFile = Dir Loop MsgBox "Done. Column A lists all of the files of the given directory" End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!