[RESOLVED] Directory Searching

[westconn1]

how long does it take to do a similar search in windows explorer?

the other method that would be simple to code is to use the file system object then you would not need to iterate through all the files, just work with the collections
i haven't tried to do this, but it would be worth testing, often the search would take as long, but in this case it may be quicker, you would need to add a reference to microsoft scripting runtime

Sub dirs(startpath, pattern)
Dim fs As New FileSystemObject, sf As Object, dirarr() As String, cnt As Long
ReDim dirarr(100)

For Each sf In fs.GetFolder(startpath).SubFolders
    dirarr(cnt) = sf.Path
    cnt = cnt + 1
    If LCase(sf.Name) Like LCase(pattern) Then
        If Not Len(foundarr(0)) = 0 Then ReDim Preserve foundarr(UBound(foundarr) + 1)
        foundarr(UBound(foundarr)) = sf.Path
    End If
Next
If Not cnt = 0 Then
 ReDim Preserve dirarr(cnt - 1)
    For i = 0 To UBound(dirarr)
        dirs dirarr(i), pattern
    Next
End If
End Sub
Sub finddir()
ReDim foundarr(0)
dirs "C:\Documents and Settings\peter\My Documents", "my*"

End Sub

try some speed test with this