VBS: Prüfen, ob 3 Dateien im ausführbaren Verzeichnis und 2 im Unterordner vorhanden sind. Sind alle da, exe starten, sonst beenden.

Um dies in einer Visual Basic Script (VBS) Datei zu realisieren, kannst du folgendes Skript verwenden:

```vbs
Option Explicit

Dim fso, currentDir, file1, file2, file3, subDir, subFile1, subFile2, exePath

' Setze die Dateinamen und Pfade
Set fso = CreateObject("Scripting.FileSystemObject")
currentDir = fso.GetAbsolutePathName(".")
file1 = currentDir & "\datei1.txt"
file2 = currentDir & "\datei2.txt"
file3 = currentDir & "\datei3.txt"
subDir = currentDir & "\unterordner"
subFile1 = subDir & "\datei4.txt"
subFile2 = subDir & "\datei5.txt"
exePath = currentDir & "\programm.exe"

' Prüfe, ob die Dateien existieren
If fso.FileExists(file1) And fso.FileExists(file2) And fso.FileExists(file3) And _
fso.FileExists(subFile1) And fso.FileExists(subFile2) Then
' Starte die EXE-Datei
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run exePath
Else
' Beende das Skript
WScript.Quit
End If
```

Dieses Skript überprüft, ob die drei Dateien im aktuellen Verzeichnis und die zwei Dateien im Unterordner vorhanden sind. Wenn alle Dateien vorhanden sind, wird die angegebene EXE-Datei gestartet. Andernfalls wird das Skript beendet.

Stelle sicher, dass du die Dateinamen und Pfade entsprechend deinen Anforderungen anpasst.