Hello,

We have a lot of files in different directories in our project.  I wrote a
macro to find and open a source file based on the filename rather than using
the solution explorer.  But it's so slow as to be unusable. Is there
something obvious in my code, or is there another way to do this?

Andrew

Public Sub FindFile()

   Dim ps As ProjectItems =
ActiveDocument.ProjectItem.ContainingProject.ProjectItems

   Dim s As String = InputBox("Enter part of the filename to open.", "Open
File")

   Dim re As New Regex(s, RegexOptions.IgnoreCase)

   If s = "" Then Exit Sub

   If Not IterateProjectItems(ps, re, s) Then MsgBox("No matching files
found")

End Sub

Private Function IterateProjectItems(ByRef ps As ProjectItems, ByRef re As
Regex, ByVal s As String)

   Dim pi As ProjectItem

   Dim found As Boolean

   For Each pi In ps

       If re.IsMatch(pi.Name) Then

           found = True

           pi.Open()

           pi.Document.Activate()

       End If

       found = IterateProjectItems(pi.ProjectItems, re, s) Or found

   Next

   IterateProjectItems = found

End Function