Wie kann ich mit VBS prüfen, ob 6 Dateien im ausführbaren Script vorhanden sind und 2 im Unterordner?

Um mit VBScript zu prüfen, ob sechs Dateien im ausführbaren Skriptverzeichnis und zwei Dateien in einem Unterordner vorhanden sind, kannst du folgendes Skript verwenden: ```vbscript Option Explicit Dim fso, folder, subfolder, file, fileCountMain, fileCountSub Dim mainFolderPath, subFolderPath ' Set the paths mainFolderPath = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) subFolderPath = mainFolderPath & "\Unterordner" ' Passe den Unterordnernamen an ' Create FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Initialize counters fileCountMain = 0 fileCountSub = 0 ' Check if main folder exists If fso.FolderExists(mainFolderPath) Then Set folder = fso.GetFolder(mainFolderPath) ' Count files in main folder For Each file In folder.Files fileCountMain = fileCountMain + 1 Next Else WScript.Echo "Hauptordner existiert nicht." WScript.Quit End If ' Check if subfolder exists If fso.FolderExists(subFolderPath) Then Set subfolder = fso.GetFolder(subFolderPath) ' Count files in subfolder For Each file In subfolder.Files fileCountSub = fileCountSub + 1 Next Else WScript.Echo "Unterordner existiert nicht." WScript.Quit End If ' Output results If fileCountMain = 6 Then WScript.Echo "Es gibt 6 Dateien im Hauptordner." Else WScript.Echo "Es gibt nicht 6 Dateien im Hauptordner, sondern " & fileCountMain & "." End If If fileCountSub = 2 Then WScript.Echo "Es gibt 2 Dateien im Unterordner." Else WScript.Echo "Es gibt nicht 2 Dateien im Unterordner, sondern " & fileCountSub & "." End If ``` Dieses Skript überprüft, ob im Verzeichnis des ausführbaren Skripts sechs Dateien und im Unterordner zwei Dateien vorhanden sind. Passe den Namen des Unterordners entsprechend an.