Wie kann ich mit VBS eine Datei im Unterverzeichnis prüfen, ob sie vorhanden ist, ohne die Pfadangabe zu nutzen?

Um mit VBScript zu prüfen, ob eine Datei in einem Unterverzeichnis vorhanden ist, ohne eine vollständige Pfadangabe zu verwenden, kannst du das folgende Skript verwenden. Dieses Skript durchsucht rekursiv alle Unterverzeichnisse des aktuellen Verzeichnisses nach der angegebenen Datei.

```vbscript
Option Explicit

Dim fso, folder, fileName, found
Set fso = CreateObject("Scripting.FileSystemObject")

' Name der zuenden Datei
fileName = "deine_datei.txt"
found = False

' Startverzeichnis (aktuelles Verzeichnis)
Set folder = fso.GetFolder(".")

' Funktion zum rekursiven Durchs von Verzeichnissen
Sub SearchFolder(fldr)
Dim subFolder file
' Durchsuche alle Dateien im aktuellen Verzeichnis
For Each In fldr.Files
If file.Name = fileName Then
found = True
Exit Sub
End If
Next
' Durchsuche alle Unterverzeichnisse
For Each subFolder In fldr.SubFolders
SearchFolder subFolder
If found Then Exit Sub
Next
End Sub

' Starte die Suche
SearchFolder folder

If found Then
WScript.Echo "Datei gefunden."
Else
WScript.Echo "Datei nicht gefunden."
End If
```

Dieses Skript setzt voraus, dass die Datei im aktuellen Verzeichnis oder einem seiner Unterverzeichnisse liegt. Es verwendet die `FileSystemObject`-Komponente, um das Dateisystem zu durchsuchen. Der Name der zu suchenden Datei wird in der Variable `fileName` angegeben.