Dim fileName As String
        For Each name As String In IO.Directory.GetFiles("C:\")
            If IO.Path.GetFileName(name).StartsWith("Namen Aktuell ") Then
                fileName = name
                Exit For
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist