VBS prüfen, ob 6 Dateien im aktuellen Verzeichnis und 2 Dateien im Unterordner vorhanden sind. Wenn ja, starte exe, wenn nicht, beende mit Fehler und zeige, welche Datei fehlt.

Um dies in VBScript zu erreichen, kannst du folgendes Skript verwenden. Es überprüft, ob die angegebenen Dateien im aktuellen Verzeichnis und im Unterordner vorhanden sind, und startet eine EXE-Datei, wenn alle Dateien vorhanden sind. Andernfalls wird ein Fehler angezeigt und die fehlenden Dateien werden aufgelistet.

```vbscript
Option Explicit

Dim fso, currentFolder, subFolder, filesToCheck, missingFiles, file, exePath
Set fso = CreateObject("Scripting.FileSystemObject")
Set currentFolder = fso.GetFolder(".")
Set subFolder = fso.GetFolder(".\Unterordner") ' Passe den Namen des Unterordners an

' Liste der Dateien im aktuellen Verzeichnis
filesToCheck = Array("datei1.txt", "datei2.txt", "datei3.txt", "datei4.txt", "datei5.txt", "datei6.txt")

' Liste der Dateien im Unterordner
filesToCheck = filesToCheck & Array("unterordner_datei1.txt", "unterordner_datei2.txt")

Set missingFiles = CreateObject("Scripting.Dictionary")

' Überprüfe Dateien im aktuellen Verzeichnis
For Each file In filesToCheck
If Not fso.FileExists(currentFolder.Path & "\" & file) Then
missingFiles.Add file, currentFolder.Path & "\" & file
End If
Next

' Überprüfe Dateien im Unterordner
For Each file In filesToCheck
If Not fso.FileExists(subFolder.Path & "\" & file) Then
missingFiles.Add file, subFolder.Path & "\" & file
End If
Next

' Wenn fehlende Dateien vorhanden sind, zeige eine Fehlermeldung und beende das Skript
If missingFiles.Count > 0 Then
Dim msg
msg = "Fehlende Dateien:" & vbCrLf
For Each file In missingFiles.Keys
msg = msg & file & vbCrLf
Next
MsgBox msg, vbCritical, "Fehler"
WScript.Quit 1
Else
' Starte die EXE-Datei
exePath = "C:\Pfad\zur\datei.exe" ' Passe den Pfad zur EXE-Datei an
If fso.FileExists(exePath) Then
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run exePath, 1, False
Else
MsgBox "Die EXE-Datei wurde nicht gefunden.", vbCritical, "Fehler"
WScript.Quit 1
End If
End If
```

Stelle sicher, dass du die Pfade und Dateinamen entsprechend deinen Anforderungen anpasst. Dieses Skript überprüft die Existenz der Dateien und startet die EXE-Datei nur, wenn alle Dateien vorhanden sind. Andernfalls wird eine Fehlermeldung angezeigt und das Skript wird beendet.