Verzeichnisanzahl

$fs = SearchFolders("C:")
MsgBox(0,"",$fs)




Func SearchFolders($deldir,$DIR_DEL=0)
	ProgressSet(0)
	Global $FOLDERS_TO_SEARCH_IN[2]		=	[1, $deldir]
	Global $FILES_SCANNED				=	0
	$times =0
	$time =0
	Global $LAST_PROGRESS_DATA			=	0
	Global $NEW_PROGRESS_DATA			=	0
	Global $No_Size			=	0
	Local $i = 1
	$time = 0
	Local $No_Delete
	Local $hSearch
	Local $ERROR
	Local $sCurrentFile
	Local $aFileTime
	Local $aShortcutTarget
	Do
		$hSearch = FileFindFirstFile($FOLDERS_TO_SEARCH_IN[$i] & "\*.*")
		$ERROR = 0
		Do
			$sCurrentFile = FileFindNextFile($hSearch)
			If @error Then 
				$ERROR = 1
			Else
				$times +=1
				$time +=1
				If StringInStr(FileGetAttrib($FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile), "D") Then
					$FOLDERS_TO_SEARCH_IN[0] += 1
					ReDim $FOLDERS_TO_SEARCH_IN[$FOLDERS_TO_SEARCH_IN[0] + 1]
					$FOLDERS_TO_SEARCH_IN[$FOLDERS_TO_SEARCH_IN[0]] = $FOLDERS_TO_SEARCH_IN[$i] & "" & $sCurrentFile
					$time +=1
				EndIf

			EndIf

		Until $ERROR
		FileClose($hSearch)
		$i += 1
	Until $i > $FOLDERS_TO_SEARCH_IN[0]
	Return $time;tja mhh das geht nich...
EndFunc

Global $dir_counter = 0
	_CountSubDirs("C:\Spiele")

	Func _CountSubDirs($search_dir_path)

	; Shows the filenames of all files in the current directory.
	$search = FileFindFirstFile($search_dir_path & "\*")

	; Check if the search was successful
	If $search = -1 Then
	MsgBox(0, "Error", "No files/directories matched the search pattern")
	Exit
	EndIf

	While 1
	$file = FileFindNextFile($search)
	ToolTip($file)
	If @error Then ExitLoop
	If StringInStr(FileGetAttrib($search_dir_path & "" & $file), "D") and ($file <> ".") and ($file <> "..") Then
	$dir_counter += _CountSubDirs($search_dir_path)
	EndIf
	WEnd

	; Close the search handle
	FileClose($search)
	Return $dir_counter
	EndFunc   ;==>_CountSubDirs