Wie prüfe ich mit VBS eine Datei im Quellverzeichnis und im übergeordneten Ordner auf Existenz?

Um mit VBScript eine Datei im Quellverzeichnis und im übergeordneten Ordner auf Existenz zu prüfen, kannst du folgendes Skript verwenden:

```vbscript
Dim fso, sourceFile, parentFolder, parentFile

' Set the file system object
Set fso = CreateObject("Scripting.FileSystemObject")

' Define the source file path
sourceFile = "C:\Pfad\zum\Quellverzeichnis\datei.txt"

' Check if the source file exists
If fso.FileExists(sourceFile) Then
WScript.Echo "Die Datei existiert im Quellverzeichnis."
Else
WScript.Echo "Die Datei existiert nicht im Quellverzeichnis."
End If

' Get the parent folder of the source file
parentFolder = fso.GetParentFolderName(sourceFile)

' Define the parent file path
parentFile = fso.BuildPath(fso.GetParentFolderName(parentFolder), fso.GetFileName(sourceFile))

' Check if the file exists in the parent folder
If fso.FileExists(parentFile) Then
WScript.Echo "Die Datei existiert im übergeordneten Ordner."
Else
WScript.Echo "Die Datei existiert nicht im übergeordneten Ordner."
End If
```

Dieses Skript prüft zunächst, ob die Datei im Quellverzeichnis existiert. Anschließend ermittelt es den übergeordneten Ordner und prüft, ob die Datei auch dort existiert. Passe den Pfad `sourceFile` entsprechend an deine Bedürfnisse an.