Mit VBS prüfen, ob 3 Dateien im Quellverzeichnis und in einem Unterverzeichnis vorhanden sind ohne Pfadangabe?

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

```vb
Option Explicit

fso, sourceFolder, subFolder, file, fileName
Dim filesToCheck, fileFound, allFilesFound
Dim sourcePath

' Initialisiere das FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' Definiere das Quellverzeichnis
sourcePath = "C:\Pfad\Zum\Quellverzeichnis"

' Definiere die zu prüfenden Dateien
filesToCheck = Array("datei1.txt", "datei2.txt", "datei3.txt")

' Setze das Quellverzeichnis
Set sourceFolder = fso.GetFolder(sourcePath)

' Funktion zum Überprüfen, ob eine Datei in einem Verzeichnis vorhanden ist
Function FileExistsInFolder(folder, fileName)
Dim file
For Each file In folder.Files
If LCase(file.Name) = LCase(fileName) Then
FileExistsInFolder = True
Exit Function
End If
Next
FileExistsInFolder = False
End Function

' Überprüfe, ob die Dateien im Quellverzeichnis vorhanden sind
allFilesFound = True
For Each fileName In filesToCheck
fileFound = FileExistsInFolder(sourceFolder, fileName)
If Not fileFound Then
allFilesFound = False
Exit For
End If
Next

' Überprüfe, ob die Dateien in den Unterverzeichnissen vorhanden sind, falls sie nicht im Quellverzeichnis gefunden wurden
If Not allFilesFound Then
For Each subFolder In sourceFolder.SubFolders
allFilesFound = True
For Each fileName In filesToCheck
fileFound = FileExistsInFolder(subFolder, fileName)
If Not fileFound Then
allFilesFound = False
Exit For
End If
Next
If allFilesFound Then Exit For
Next
End If

' Ergebnis ausgeben
If allFilesFound Then
WScript.Echo "Alle Dateien sind vorhanden."
Else
WScript.Echo "Nicht alle Dateien sind vorhanden."
End If

' Aufräumen
Set fso = Nothing
Set sourceFolder = Nothing
Set subFolder = Nothing
```

Dieses Skript überprüft, ob die drei angegebenen Dateien sowohl im Quellverzeichnis als auch in einem der Unterverzeichnisse vorhanden sind. Wenn alle Dateien gefunden werden, gibt es eine entsprechende Meldung aus. Andernfalls wird eine Meldung ausgegeben, dass nicht alle Dateien vorhanden sind.