Wie prüfe ich mit VBScript, ob sich sechs bestimmte Dateien im selben Verzeichnis wie das auszuführende Script befinden und beende das Script, falls nicht?

Um mit VBScript zu prüfen, ob sich sechs bestimmte Dateien im selben Verzeichnis wie das auszuführende Script befinden, und das Script zu beenden, falls nicht alle Dateien vorhanden sind, kann folgender Code verwendet werden:

```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")

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

' Beende das Script, falls nicht alle Dateien vorhanden sind
If Not fileExists Then
WScript.Echo "Eine oder mehrere Dateien fehlen. Das Script wird beendet."
WScript.Quit
End If

' Falls alle Dateien vorhanden sind, kann hier der restliche Code eingefügt werden
WScript.Echo "Alle Dateien sind vorhanden. Das Script wird fortgesetzt."

' Bereinige die Objekte
Set objFSO = Nothing
Set objShell = Nothing
Set objScriptFile = Nothing
```

Dieser Code prüft, ob die sechs angegebenen Dateien im selben Verzeichnis wie das auszuführende Script vorhanden sind. Wenn eine oder mehrere Dateien fehlen, wird eine Meldung ausgegeben und das Script beendet. Andernfalls wird eine Meldung ausgegeben, dass alle Dateien vorhanden sind, und das Script kann fortgesetzt werden.