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.