Wie kann ich in einer VBS prüfen, ob 6 Dateien und 2 weitere im Unterordner existieren, bevor eine EXE gestartet wird?

Um ein VBScript zu erstellen, das überprüft, ob sechs Dateien im aktuellen Verzeichnis und zwei Dateien in einem Unterordner vorhanden sind, und dann eine EXE-Datei startet oder eine Fehlermeldung anzeigt und beendet, kannst du folgendes Skript verwenden:

```vbscript
Option Explicit

Dim files, subfolderFiles, allFiles, file, fso, allExist

' Dateien im aktuellen Verzeichnis
files = Array("file1.txt", "file2.txt", "file3.txt", "file4.txt", "file5.txt", "file6.txt")

' Dateien im Unterordner
subfolderFiles = Array("subfolder\file7.txt", "subfolder\file8.txt")

' Alle Dateien zusammenführen
allFiles = files & subfolderFiles

Set fso = CreateObject("Scripting.FileSystemObject")
allExist = True

' Überprüfen, ob alle Dateien existieren
For Each file In allFiles
If Not fso.FileExists(file) Then
allExist = False
Exit For
End If
Next

If allExist Then
' EXE-Datei starten
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "yourprogram.exe"
Else
' Fehlermeldung anzeigen und beenden
MsgBox "Eine oder mehrere Dateien fehlen. Das Programm wird beendet.", vbCritical
WScript.Quit
End If
```

Ersetze `"file1.txt"`, `"file2.txt"`, etc. durch die tatsächlichen Dateinamen und `"subfolder\file7.txt"`, `"subfolder\file8.txt"` durch die tatsächlichen Pfade der Dateien im Unterordner. Ebenso ersetze `"yourprogram.exe"` durch den Namen der ausführbaren Datei, die gestartet werden soll.

Dieses Skript überprüft, ob alle angegebenen Dateien vorhanden sind. Wenn eine Datei fehlt, wird eine Fehlermeldung angezeigt und das Skript beendet sich. Wenn alle Dateien vorhanden sind, wird die EXE-Datei gestartet.