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

Um mit VBScript zu prüfen, ob drei bestimmte Dateien sowohl im Quellverzeichnis der ausführbaren Datei als auch in einem Unterverzeichnis vorhanden sind, kannst du folgendes Skript verwenden:

```vbscript
Option Explicit

Dim fso, sourceFolder, subFolder, filesToCheck, file, filePath, allFilesExist
Set fso = CreateObject("Scripting.FileSystemObject")

' Ver der ausführbaren Datei
sourceFolder = fso.GetParentFolderName(WScript.ScriptFullName)

' Unterverzeichnis (hier als Beispiel "Unterverzeichnis")
subFolder = fso.BuildPath(sourceFolder, "Unterverzeichnis")

' Dateien, die überprüft werden sollen
filesToCheck = Array("datei1.txt", "datei2.txt", "datei3.txt")

allFilesExist = True

' Überprüfen, ob die Dateien im Quellverzeichnis vorhanden sind
For Each file In filesToCheck
filePath = fso.BuildPath(sourceFolder, file)
If Not fso.FileExists(filePath) Then
allFilesExist = False
Exit For
End If
Next

' Überprüfen, ob die Dateien im Unterverzeichnis vorhanden sind
If allFilesExist Then
For Each file In filesToCheck
filePath = fso.BuildPath(subFolder, file)
If Not fso.FileExists(filePath) Then
allFilesExist = False
Exit For
End If
Next
End If

If allFilesExist Then
WScript.Echo "Alle Dateien sind sowohl im Quellverzeichnis als auch im Unterverzeichnis vorhanden."
Else
WScript.Echo "Nicht alle Dateien sind vorhanden."
End If
```

Dieses Skript überprüft, ob die Dateien `datei1.txt`, `datei2.txt` und `datei3.txt` sowohl im Quellverzeichnis der ausführbaren Datei als auch in einem Unterverzeichnis namens "Unterverzeichnis" vorhanden sind. Wenn alle Dateien in beiden Verzeichnissen vorhanden sind, wird eine entsprechende Meldung ausgegeben. Andernfalls wird eine Meldung ausgegeben, dass nicht alle Dateien vorhanden sind.