Wie prüfe ich mit VBS, ob 3 Dateien im Quellverzeichnis und in einem Unterverzeichnis vorhanden sind?

Um mit VBScript zu prüfen, ob drei bestimmte Dateien sowohl im Quellverzeichnis als auch in einem Unterverzeichnis vorhanden sind, kann folgendes Skript verwendet werden:

```vbscript
Dim fso folder, subfolder, file, filesToCheck, fileFound
Set fso = CreateObject("Scripting.FileSystemObject")

' Quellverzeichnis angeben
Dim sourceDir
sourceDir = "C:\Pfad\Zum\Quellverzeichnis"

' Dateien, die überprüft werden sollen
filesToCheck = Array("Datei1.txt", "Datei2.txt", "Datei3.txt")

' Funktion zum Überprüfen der Dateien
Function CheckFilesInFolder(folderPath)
Set folder = fso.GetFolder(folderPath)
For Each file In filesToCheck
fileFound = False
For Each f In folder.Files
If LCase(f.Name) = LCase(file) Then
fileFound = True
Exit For
End If
Next
If Not fileFound Then
CheckFilesInFolder = False
Exit Function
End If
Next
CheckFilesInFolder = True
End Function

' Überprüfen der Dateien im Quellverzeichnis
If CheckFilesInFolder(sourceDir) Then
WScript.Echo "Alle Dateien sind im Quellverzeichnis vorhanden."
Else
WScript.Echo "Nicht alle Dateien sind im Quellverzeichnis vorhanden."
End If

' Überprüfen der Dateien in den Unterverzeichnissen
Set folder = fso.GetFolder(sourceDir)
For Each subfolder In folder.SubFolders
If CheckFilesInFolder(subfolder.Path) Then
WScript.Echo "Alle Dateien sind im Unterverzeichnis " & subfolder.Path & " vorhanden."
Else
WScript.Echo "Nicht alle Dateien sind im Unterverzeichnis " & subfolder.Path & " vorhanden."
End If
Next
```

Dieses Skript überprüft, ob die angegebenen Dateien im Quellverzeichnis und in jedem Unterverzeichnis vorhanden sind. Es gibt entsprechende Meldungen aus, ob die Dateien gefunden wurden oder nicht.