' Returns a collection holding all the filenames that' match a given filespec and search attributes.Function GetFiles(filespec As String, Optional Attributes As VbFileAttribute) _ As Collection Dim filename As String Set GetFiles = New Collection ' start the search filename = Dir$(filespec, Attributes) Do While Len(filename) ' we've found a new file GetFiles.Add filename, filename ' get ready for the next iteration filename = Dir$ LoopEnd Function