Wie prüfe ich in VBS, ob eine Datei im selben Verzeichnis existiert?

Um in VBScript zu prüfen, ob eine Datei im selben Verzeichnis wie das Skript existiert, kann folgender Code verwendet werden:

```vbscript
Dim fso, currentDirectory, filePath, fileName

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

' Hole das aktuelle Verzeichnis des Skripts
currentDirectory = fso.GetParentFolderName(WScript.ScriptFullName)

' Definiere den Dateinamen, den du überprüfen möchtest
fileName = "deine_datei.txt"

' Erstelle den vollständigen Pfad zur Datei
filePath = fso.BuildPath(currentDirectory, fileName)

' Überprüfe, ob die Datei existiert
If fso.FileExists(filePath) Then
WScript.Echo "Die Datei existiert."
Else
WScript.Echo "Die Datei existiert nicht."
End If
```

Dieser Code verwendet das `FileSystemObject`, um das aktuelle Verzeichnis des Skripts zu ermitteln und dann zu prüfen, ob die angegebene Datei in diesem Verzeichnis existiert.