Wie überprüft ein VBScript, ob die angegebenen Dateien im aktuellen Verzeichnis und im Unterordner vorhanden sind und startet eine EXE-Datei, wenn alle Dateien vorhanden sind?

Um ein VBScript zu erstellen, das überprüft, ob bestimmte Dateien im aktuellen Verzeichnis und in einem Unterordner vorhanden sind und dann eine EXE-Datei startet, wenn alle Dateien vorhanden sind, kann folgender Code verwendet werden:

```vbscript
Option Explicit

Dim objFSO, objShell
Dim currentDir, subDir, filesToCheck, file, allFilesExist

' Initialisiere das FileSystemObject und Shell-Objekt
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

' Aktuelles Verzeichnis und Unterverzeichnis festlegen
currentDir = objFSO.GetAbsolutePathName(".")
subDir = objFSO.BuildPath(currentDir, "Unterordner")

' Liste der zu überprüfenden Dateien
filesToCheck = Array("datei1.txt", "datei2.txt", "Unterordner\datei3.txt")

allFilesExist = True

' Überprüfe, ob alle Dateien vorhanden sind
For Each file In filesToCheck
If Not objFSO.FileExists(objFSO.BuildPath(currentDir, file)) Then
allFilesExist = False
Exit For
End If
Next

' Wenn alle Dateien vorhanden sind, starte die EXE-Datei
If allFilesExist Then
objShell.Run "deineDatei.exe"
Else
WScript.Echo "Eine oder mehrere Dateien fehlen."
End If

' Objekte freigeben
Set objFSO = Nothing
Set objShell = Nothing
```

In diesem Skript:
1. `filesToCheck` enthält die Liste der Dateien, die überprüft werden sollen. Dateien im Unterordner werden mit dem relativen Pfad angegeben.
2. Das Skript überprüft, ob jede Datei in der Liste existiert.
3. Wenn alle Dateien vorhanden sind, wird die EXE-Datei gestartet. Andernfalls wird eine Meldung ausgegeben, dass eine oder mehrere Dateien fehlen.

Stelle sicher, dass die Pfade und Dateinamen in `filesToCheck` sowie der Name der EXE-Datei korrekt sind.