Mit VBS prüfen, ob sich 6 bestimmte Dateien im selben Verzeichnis wie das auszuführende Skript befinden. Falls ja, Datei starten; falls nicht, Skript beenden.

Um mit VBScript zu prüfen, ob sich sechs bestimmte Dateien im selben Verzeichnis wie das auszuführende Script befinden, und entsprechend zu handeln, kannst du folgendes Skript verwenden:

```vbscript
Option Explicit

Dim objFSO, objShell, objScriptFile, strScriptPath, arrFiles, i, fileExists

' Erstelle ein FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Erstelle ein Shell-Objekt
Set objShell = CreateObject("WScript.Shell")

' Hole den Pfad des auszuführenden Scripts
Set objScriptFile = objFSO.GetFile(WScript.ScriptFullName)
strScriptPath = objFSO.GetParentFolderName(objScriptFile)

' Definiere die zu prüfenden Dateien
arrFiles = Array("datei1.txt", "datei2.txt", "datei3.txt", "datei4.txt", "datei5.txt", "datei6.txt")

fileExists = True

' Prüfe, ob alle Dateien existieren
For i = 0 To UBound(arrFiles)
If Not objFSO.FileExists(objFSO.BuildPath(strScriptPath, arrFiles(i))) Then
fileExists = False
Exit For
End If
Next

' Wenn alle Dateien existieren, führe eine Datei aus, ansonsten beende das Script
If fileExists Then
' Beispiel: Starte eine Datei (hier "datei1.txt" als Platzhalter)
objShell.Run objFSO.BuildPath(strScriptPath, "datei1.txt")
Else
WScript.Quit
End If

' Aufräumen
Set objFSO = Nothing
Set objShell = Nothing
Set objScriptFile = Nothing
```

Dieses Skript prüft, ob die sechs angegebenen Dateien im selben Verzeichnis wie das Skript selbst vorhanden sind. Wenn alle Dateien vorhanden sind, wird eine Datei (in diesem Beispiel "datei1.txt") gestartet. Andernfalls wird das Skript beendet. Passe die Dateinamen und die auszuführende Datei nach Bedarf an.