Copy file names

  • Thread starter Thread starter americana
  • Start date Start date
This little macro will list all the files in the folder that holds the
file that has this macro in it. Change the folder as necessary. HTH Otto
Sub GetFileList()
Dim ThePath As String
ThePath = ThisWorkbook.Path
fname = Dir(ThePath & "\*.xls")
i = 1
Do While fname <> ""
Range("A" & i) = fname
fname = Dir()
i = i + 1
Loop
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copying Formulas 2
Renaming excel files in a folder 1
relative defined name references? 1
Editing cell names 1
Double saving? 8
How do I copy and edit photos received in an excel spreadsheet 1
Windows 7 Task Scheduler to Move(Cut) files from one drive to another within Same PC 1
Why paste between workshhets yields values only 6

Back
Top