Wildcardsuche per VBScript

[Jan_12]

Hallo!

Ich möchte testen, ob ein bestimmter Ordner existiert. Ich kenne aber nur die ersten Zeichen des Ordnernamens, der Rest des Namens ist mir nicht bekannt.

Wie kann ich per VBScript den Namen bestimmen?

Mein Ansatz ist:
---schnipp---
For Each subFolderInExportPath in subFoldersInExportPath
   if InStr(1, subFolderInExportPath.name, foldernameToTest) then
      pathName = subFolderInExportPath.name
      Exit For
   end if
Next
---schnipp---

Funktioniert zwar, aber dauert ewig lange. Gibt es eine bessere Methode?

Vielen Dank,
Jan