[blue]Function[/blue] GetFiles(filespec [blue]As String[/blue], _
[blue]Optional[/blue] Attributes [blue]As VbFileAttribute[/blue]) [blue]As String[/blue]()
[blue]Dim[/blue] result() [blue]As String[/blue]
[blue]Dim[/blue] filename [blue]As String[/blue]
[blue]Dim[/blue] count [blue]As Long[/blue], path2 [blue]As String[/blue]
[blue]Const[/blue] ALLOC_CHUNK = 50
[blue]ReDim[/blue] result(0 To ALLOC_CHUNK) [blue]As String[/blue]
filename = Dir$(filespec, Attributes)
[blue]Do While[/blue] Len(filename)
count = count + 1
[blue]If[/blue] count > UBound(result) [blue]Then[/blue]
[green]' Resize the result array if necessary.[/green]
[blue]ReDim Preserve[/blue] result(0 To count + _
ALLOC_CHUNK) [blue]As String[/blue]
[blue]End If[/blue]
result(count) = filename
[green]' Get ready for the next iteration.[/green]
filename = Dir$
[blue]Loop[/blue]
[green]' Trim the result array.[/green]
[blue]ReDim Preserve[/blue] result(0 To count) [blue]As String[/blue]
GetFiles = result
[blue]End Function[/blue]
[green]' ...[/green]
[green]'--------------------------------------------
' This is how you would use it...[/green]
[blue]Dim[/blue] files() [blue]As String[/blue]
[blue]Dim[blue/] countFiles [blue]As Long[/blue]
[b]files = GetFiles("C:\YourDir\*.temp1.txt")
countFiles = Ubound(files)[/b]
MsgBox "There are " & countFiles.
[green]' ...[/green]