Private Sub nSearch_StopSearch(Cancel As Boolean)
  ' Wurde Stop gedrückt, dann Cancel für den
  ' Suchabbruch setzen
  If bCancel Then Cancel = bCancel
  DoEvents
End Sub
 
Private Sub nSearch_MatchFound(ByVal sFilename As String, _
   ByVal sFilePath As String, _
   ByVal sFiledate As Date, _
   ByVal sFilesize As Long, _
   ByVal sLastAccess As Date, _
   ByVal sLastWrite As Date, _
   ByVal sShortName As String)
 
  ' Listbox mit dem letzten Suchergebnis füllen
  listfiles.AddItem sFilePath & sFilename
  DoEvents
End Sub
 
Private Sub Search()
  listfiles.Clear      ' Listbox loschen
  bCancel = False  ' Abbruchbedingung setzen
 
  With nSearch
    .sSearchpath = strPfad ' Suchpfad
    .sFileToFind = "*.mp3"               ' Suchnamen
    .sFileFlag = FILE_ATTRIBUTE_ALLTYPES ' Dateiattribute
    .sInclSubfolders = True              ' Subdirs durchsuchen
 
     ' Suche starten
     Screen.MousePointer = 13
     .sStartSearch
     Screen.MousePointer = 0
  End With
End Sub