Private Sub cmdStart_Click()
Dim colArray As Variant
Dim aStern As String                    'damit die Suche über ein Textfeld 
' variabler wird
Dim bStern As String                    'soll in der Textbox nur Text 
' eingegeben werden und
Dim Suchtext As String                  'es soll automatisch vor dem Text und 
' nach dem Text
aStern = "*"                            'jeweils ein Stern als Joker angehängt 
' werden
bStern = "*"                           'aber ohne dass man es sieht,alles 
' zusammen als Suchstring
Suchtext = aStern & text2.Text & bStern & [u]txtEndung.Text 'an die 
' Funktion sFileToFind übergeben werden.
 
'''   ' Das ListView initialisieren
   With ListView1
     .ListItems.Clear
    .SetFocus
      .Refresh
   End With
 
   ' Abbruchbedingung für die Suche vorbesetzen
   bCancel = False
 
   With nSearch
      ' Eigenschaften des Klassenmoduls füllen
      .sFileToFind = Suchtext '         ' zusammengestzter Suchtext _
        inkl.Jokerzeichen
      ' FileFlag setzten, kann mit "Or" Verknüpft werden.
      ' Die gesetzten Werte in der Form werden über die
      .sSearchpath = App.Path & "\File\"
      .sInclSubfolders = CBool(Check1.Value)
 
      ' Status der Command Buttons ändern
      cmdStart.Enabled = False
      cmdStop.Enabled = True
 
      Screen.MousePointer = 13
      ' Suche starten...
      .sStartSearch
      Screen.MousePointer = 0
 
      ' Status der Command Buttons zurücksetzen
      cmdStart.Enabled = True
      cmdStop.Enabled = False
 
      ' Das ListView auf die optimale Spaltenbreite einstellen
      colArray = Array(1, 2, 4, 7)
      lvwSetMultiColWidth ListView1, colArray
      'lvwSetMultiColWidth ListView2.InnerListView, colArray
   End With
   text2.Text = ""
End Sub