Ausschnitt....
 
 '<-- alle Dateien im Verzeichnis -->
    For Each File In Filed.Files
    'mich interessieren nur die *.log
        If Right(File.Name, 3) = "log" Then
            '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
            ' ++++++++++
            'aha eine *log Datei, ist diese von heute???
                If Format(File.datelastaccessed, "dd.mm.yyyy") = Date Then
                        If File.Name Like "PFC_" & str_ServerName & "*.log" Then
                           ' If bln_Like = True Then
                                 strName = File.Name
                                 Debug.Print strName
                                 Exit For
                            End If
                End If
            '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
            ' ++++++++++
            Else
        DateiInfo = "Keine *.log Datei vorhanden"
'        Exit Function
        End If
    Next File