List File Names From Folder

Hi

Run this code, select the directory, then cancel and the list of files will be displayed in column A.

Sub aaa()
  Application.GetOpenFilename
  filess = Dir("*.*")
  Do While Not filess = ""
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = filess
    filess = Dir()
  Loop
  
  
End Sub

HTH

rylo

thank you rylo

rylo

this works 100%, but how do I add the path with the file name for example
C:\My Work\book1.xls

Hi

try changing

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = filess

to

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = curdir & "\" & filess

rylo