Code: Alles auswählen
Function MeineSuche(Suchbegriff As String, Verzeichnis As String) As String
sPath = ConvertToURL(Verzeichnis)
sValue = Dir$(sPath & Suchbegriff, 0)
Do
If sValue <> "." and sValue <> ".." and sValue <> "" Then
MeineSuche = sValue 'nur erstes Ergebnis
Exit Function
End If
Loop Until sValue = ""
End Function
=WENN(MEINESUCHE("*Test*.*";"D:\")<>"";MEINESUCHE("*Test*.*";"D:\");"kein Datei")
Gruß
Stephan