Copy Filenames

[karlruff]

Hello,
I'm looking for a piece of code that could copy all the names of files in a folder and place the list in excel.
Could anyone point me in the right direction?
Thx

 

[xenou]

Try this:

Sub ListFilesInCurrentFolder()
'List all the filenames in the current folder in a new worksheet
Dim f()
Dim strTemp As String
Dim intCount As Integer
Dim ws As Worksheet
    
    intCount = 0
    strTemp = Dir("*.*")
    Do While strTemp <> Empty
        intCount = intCount + 1
        ReDim Preserve f(1 To intCount)
        f(intCount) = strTemp
        strTemp = Dir
    Loop

Set ws = Workbooks.Add.Worksheets(1)
ws.Cells(1, 1).Resize(UBound(f), 1).Value = _
            WorksheetFunction.Transpose(f)

End Sub

Let us know if this isn't quite right - output is to a new workbook, Sheet1. Regards.

 

[karlruff]

You are a stud.
Thank you.
Ben

 

[biggoan]

This works much faster then my other solution but is there a way to put the date the file was created on here?

 

[Gunswick]

you can also replace the code

Dir("*.*")

with

Inputbox ("please enter directory here") & "\"

to get any directory you want instead.
'you need the backslash added onto the end else it wont work

 

[joy_666]

Excellent!!!!!