Wie prüfe ich in VBS, ob eine Datei sowohl im Quellverzeichnis als auch in einem Unterverzeichnis vorhanden ist, ohne den Pfad anzugeben?

Um in VBScript zu prüfen, ob eine Datei sowohl im Quellverzeichnis als auch in einem Unterverzeichnis vorhanden ist, kannst du den folgenden Code verwenden. Dieser Code durchsucht das Quellverzeichnis und seine Unterverzeichnisse nach der angegebenen Datei.

```vbscript
Dim fso, sourceFolder, fileName, fileFound
Set fso = CreateObject("Scripting.FileSystemObject")

' Quellverzeichnis und Dateiname festlegen
sourceFolder = "C:\DeinQuellverzeichnis"
fileName = "DeineDatei.txt"

' Funktion aufrufen, um die Datei zu suchen
fileFound = CheckFileInFolderAndSubfolders(sourceFolder, fileName)

If fileFound Then
WScript.Echo "Die Datei wurde sowohl im Quellverzeichnis als auch in einem Unterverzeichnis gefunden."
Else
WScript.Echo "Die Datei wurde nicht gefunden."
End If

' Funktion zur Überprüfung der Datei
Function CheckFileInFolderAndSubfolders(folderPath, fileName)
Dim folder, subFolder, file
Set folder = fso.GetFolder(folderPath)

' Überprüfen, ob die Datei im Quellverzeichnis vorhanden ist
For Each file In folder.Files
If LCase(file.Name) = LCase(fileName) Then
CheckFileInFolderAndSubfolders = True
Exit Function
End If
Next

' Überprüfen, ob die Datei in den Unterverzeichnissen vorhanden ist
For Each subFolder In folder.SubFolders
If CheckFileInFolderAndSubfolders(subFolder.Path, fileName) Then
CheckFileInFolderAndSubfolders = True
Exit Function
End If
Next

CheckFileInFolderAndSubfolders = False
End Function
```

Dieser Code verwendet die `FileSystemObject`-Komponente, um das Dateisystem zu durchsuchen. Die Funktion `CheckFileInFolderAndSubfolders` wird rekursiv aufgerufen, um sowohl das Quellverzeichnis als auch alle Unterverzeichnisse zu durchsuchen. Wenn die Datei gefunden wird, gibt die Funktion `True` zurück, andernfalls `False`.