Option Explicit
Const ORDNERPFAD = "c:\"
Const SUCHSTRING = "Dateina"
Dim Ordner, Datei
 
Set Ordner = CreateObject("Scripting.FileSystemObject").GetFolder(ORDNERPFAD)
 
For Each Datei In Ordner.Files
   If Instr(LCase(Datei.Name), LCase(SUCHSTRING)) > 0 Then
     WScript.Echo Datei.Path
   End If
Next