Wie prüft man mit VBS, ob 6 Dateien im selben Verzeichnis wie das auszuführende Script sind?

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

```vbscript
Option Explicit

Dim fso, scriptPath, filesToCheck, file, allFilesExist
Set fso = CreateObject("Scripting.FileSystemObject")

' Pfad des auszuführenden Scripts ermitteln
scriptPath = fso.GetParentFolderName(WScript.ScriptFullName)

' Liste der zu prüfenden Dateien
filesToCheck = Array("datei1.txt", "datei2.txt", "datei3.txt", "datei4.txt", "datei5.txt", "datei6.txt")

allFilesExist = True

' Überprüfen, ob jede Datei existiert
For Each file In filesToCheck
If Not fso.FileExists(fso.BuildPath(scriptPath, file)) Then
allFilesExist = False
Exit For
End If
Next

If allFilesExist Then
WScript.Echo "Alle Dateien sind vorhanden."
Else
WScript.Echo "Eine oder mehrere Dateien fehlen."
End If
```

Dieser Code überprüft, ob die sechs angegebenen Dateien im selben Verzeichnis wie das auszuführende Script vorhanden sind. Wenn alle Dateien vorhanden sind, wird eine entsprechende Meldung ausgegeben, andernfalls wird darauf hingewiesen, dass eine oder mehrere Dateien fehlen.