Wie prüfe ich mit VBS, ob zwei Dateien im Quellverzeichnis und im Unterordner vorhanden sind?

Um mit VBScript zu prüfen, ob zwei bestimmte Dateien sowohl im Quellverzeichnis als auch in einem Unterordner vorhanden sind, kannst du folgendes Skript verwenden:

```vbscript
Option Explicit

Dim fso, sourceFolder, subFolder, file1, file2
Dim file1Name, file2Name

' Set the names of the files to check
file1Name = "datei1.txt"
file2Name = "datei2.txt"

' Set the source folder path
sourceFolder = "C:\Pfad\Zum\Quellverzeichnis"

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

' Check if the source folder exists
If fso.FolderExists(sourceFolder) Then
' Check files in the source folder
If fso.FileExists(fso.BuildPath(sourceFolder, file1Name)) And fso.FileExists(fso.BuildPath(sourceFolder, file2Name)) Then
WScript.Echo "Beide Dateien sind im Quellverzeichnis vorhanden."
Else
WScript.Echo "Eine oder beide Dateien fehlen im Quellverzeichnis."
End If

' Iterate through subfolders
For Each subFolder In fso.GetFolder(sourceFolder).SubFolders
If fso.FileExists(fso.BuildPath(subFolder.Path, file1Name)) And fso.FileExists(fso.BuildPath(subFolder.Path, file2Name)) Then
WScript.Echo "Beide Dateien sind im Unterordner " & subFolder.Name & " vorhanden."
Else
WScript.Echo "Eine oder beide Dateien fehlen im Unterordner " & subFolder.Name & "."
End If
Next
Else
WScript.Echo "Das Quellverzeichnis existiert nicht."
End If

' Clean up
Set fso = Nothing
```

Dieses Skript überprüft, ob die Dateien `datei1.txt` und `datei2.txt` im angegebenen Quellverzeichnis und in dessen Unterordnern vorhanden sind. Passe die Dateinamen und den Pfad des Quellverzeichnisses entsprechend deinen Anforderungen an.