looping through files in folder

[vbacoder]

Hi everyone,

I'm trying to write code to loop through a list of files in a folder. I would like to 'collect' the file names into an array and print them out to a text file.

I would be grateful if anyone could give any pointers on doing this. I've looked online for sample code, but the examples are a bit complex and difficult to follow.

Thanks,

vcoder

 

[RoryA]

Does this example help?

Sub SampleLoopFiles(strParentFolder As String)
    Dim FS As FileSearch
    Dim lngCounter As Long
    Set FS = Application.FileSearch
    With FS
        .NewSearch
        .LookIn = strParentFolder
        .SearchSubFolders = True
        .FileName = "*.xls"
        .MatchTextExactly = True
        .FileType = msoFileTypeExcelWorkbooks
        .Execute
        ' Loop through all the found files
        For lngCounter = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(lngCounter)
        Next lngCounter
    End With
    Set FS = Nothing
End Sub

 

[vbacoder]

Thanks for your reply Rorya,

This looks helpful. I would also like to place the contents of the folder into an array, so that I can perform functions or read the list into something else at another stage.

Thanks,

vcoder