Loop through files in a folder using VBA?

Question

I would like to loop through the files of a directory using vba in Excel 2010.

In the loop, I will need:

• the filename, and
• the date at which

Answer 1

Dir takes wild cards so you could make a big difference adding the filter for test up front and avoiding testing each file

Sub LoopThroughFiles()
    Dim StrFile As String
    StrFile = Dir("c:\testfolder\*test*")
    Do While Len(StrFile) > 0
        Debug.Print StrFile
        StrFile = Dir
    Loop
End Sub