Public Function getMP3s(ByVal Directory As String, ByVal Filter As String, _
  ByVal SubDirs As Integer)
 
Dim lCount As Long
Dim nBytes As Currency
Dim uID3v2 As ID3v2
Dim nSize As Long
Dim i As Long
 
'zunächst Anzahl Dateien ermitteln
lCount = VBEX_FileCount(Directory, SubDirs, Filter, nBytes)
 
'Array dimensionieren
ReDim sFiles(lCount) As String
 
'Dateinamen ermitteln
lCount = VBEX_FileList(Directory, SubDirs, Filter, sFiles(), nBytes)
 
For i = 0 To UBound(sFiles)
    'Existieren ID3v2-Infos?
    nSize = MP3_ID3v2Exists(Directory & "\" & sFiles(i))
    If nSize > 0 Then
        'ID3v2-Infos auslesen und anzeigen
        uID3v2 = MP3_ReadID3v2Tag(Directory & "\" & sFiles(i), nSize)
        frmMain.List1.AddItem uID3v2.sArtist
End If
Next i
 
End Function