Friend Function GetDateiStrLis(Pfad As String, Dateien() As String) As Long
    Dim VerzNr As Integer, VerzMax As Integer, Index As Integer
    Dim Verz() As String, File As String, FileName As String
    Dim Handle As Long, Handle1 As Long, Ok As Long
    Dim FileData As WIN32_FIND_DATA
    Dim Größe As Double
    Static AnzDat As Long
 
    On Error GoTo mrkError
    VerzMax = CMAXDIR: ReDim Verz(VerzMax)
    If Pfad = "" Then Exit Function
    If AnzDat = 0 Then        ReDim Dateien(0)
    Handle = FindFirstFile(PfadName(Pfad, "*.*"), FileData) ' STATT *.* GIBST 
    ' DU DEN GESUCHTEN STRING EIN, ALSO: "Anfangstring* oder Anfangstring*.*
    If Handle = -1 Then
        GetDateiStrLis = Handle
        GoTo mrkEnde
    End If
    ' Unterverzeichnisse in verz-Feld eintragen
    Do
        FileName = CToVbStr(FileData.cFileName)
        File = DirCat(Pfad, FileName)
        If FileName <> "." And FileName <> ".." Then
            If FileData.dwFileAttributes And vbDirectory Then
            'dat ist ein Verzeichnis
                If VerzNr > VerzMax Then
                    VerzMax = VerzMax + CMAXDIR
                    ReDim Preserve Verz(VerzMax)
                End If
                Verz(VerzNr) = FileName
                VerzNr = VerzNr + 1
            End If
  'HIER KOMMT DER CODE, WO DU DIE GEFUNDENEN DATEIEN VERARBEITEST
                If AnzDat >= UBound(Dateien()) Then
                    ReDim Preserve Dateien(AnzDat + CMAXDAT)
                 End If
                Dateien(AnzDat) = File
                AnzDat = AnzDat + 1
 
 
 
    End If
        Ok = FindNextFile(Handle, FileData)
    Loop While Ok
    ' Unterverzeichnisse rekursiv abarbeiten
 
        For Index = 0 To VerzNr - 1
            If Not (Verz(Index) = "") Then GetDateiStrLis Verz(Index), Dateien()
        Next Index
 
    GoTo mrkEnde
mrkError: MsgBox CStr(Err.Number) + " " + Err.Description, vbOKOnly + _
  vbCritical, "GetDateiStrLis"
mrkEnde:
    FindClose Handle
    GetDateiStrLis = AnzDat
    ReDim Preserve Dateien(AnzDat)
    If AddSize = True Then ReDim Preserve Größen(AnzDat)
    AnzDat = 0
End Function

NS