Private Sub CrawlFolder(ByVal strfolder As String)
 
List1.Clear
ProgressBar1.Value = 0
ProgressBar2.Value = 0
 
Set objXML = New MSXML2.DOMDocument40
Set folder = FSO.GetFolder(strfolder)
objXML.validateOnParse = True
 
counter = 0
 
'start -> timer an (misst die Dauer der Sub)
Dim t
t = Timer()
 
str = Text1.Text
str3 = Text2.Text
 
'hier gehts richtig los
For Each file In folder.Files
 
Set objXML = New MSXML2.DOMDocument40 'kann die Zeile aus der Schleife raus?
objXML.Load (strfolder & "\" & file.Name)
 
 
j = objXML.selectNodes("root/event/text").length
 
For i = 1 To j
    str2 = objXML.selectSingleNode("root/event[" & i & "]/text").Text
    ProgressBar1.Value = i / j * 100
    If InStr(str2, str) > 0 Or InStr(str2, str3) > 0 Then
        List1.AddItem str2
        List1.Refresh
        Label1.Caption = List1.ListCount & " Suchtreffer."
        Label1.Refresh
    End If
Next
 
counter = counter + 1
ProgressBar2.Value = counter / folder.Files.Count * 100
Next
 
Label1.Caption = List1.ListCount & " Suchtreffer." & vbCrLf & Round((Timer() - _
  t) * 1000, 0) & "ms benötigt!"
 
End Sub

LG,Robert