Wie prüfe ich eine Datei im Unterverzeichnis und Quellverzeichnis mit VBS?

Um in VBScript zu prüfen, ob eine Datei sowohl im Quellverzeichnis als auch in einem Unterverzeichnis vorhanden ist, kann folgender Code verwendet werden:

```vbscript
Dim fso, sourceFile, subDirFile
Dim sourcePath, subDirPath, fileName

' Set the paths and file name
sourcePath = "C:\Pfad\Zum\Quellverzeichnis\"
subDirPath = "C:\Pfad\Zum\Quellverzeichnis\Unterverzeichnis\"
fileName = "datei.txt"

' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' Check if the file exists in the source directory
If fso.FileExists(sourcePath & fileName) Then
WScript.Echo "Datei ist im Quellverzeichnis vorhanden."
Else
WScript.Echo "Datei ist nicht im Quellverzeichnis vorhanden."
End If

' Check if the file exists in the subdirectory
If fso.FileExists(subDirPath & fileName) Then
WScript.Echo "Datei ist im Unterverzeichnis vorhanden."
Else
WScript.Echo "Datei ist nicht im Unterverzeichnis vorhanden."
End If

' Clean up
Set fso = Nothing
```

Dieser Code prüft, ob die Datei `datei.txt` sowohl im Quellverzeichnis als auch im Unterverzeichnis vorhanden ist und gibt entsprechende Meldungen aus. Die Pfade und der Dateiname müssen entsprechend angepasst werden.