Counting folders of a specific directory

[Iznogoud 0]

Hi, i am struggling to get a programm wich can tell me a number of total folders and subfolders in a specific directory.

I have tried FileFindNextFile, but i can't figure it out. I have looked at some dos commands like DIR, Xcopy, FC, Tree, but they don't do the thing i want.

Does someone know is someone already made a script like this or is there an easy way to make?

[jvanegmond 298]

Maybe _FileListToArray will do what you want.

[Iznogoud 0]

[offtopic]

eeej, your image is Iznogoud VERY NICE ! !

[/offtopic]

Ok, but this shows me all the info and i only want to know for an example that my C:\ drive has 10.356 folders. Nothing more.

I will research the _FileListToArray anyway...

[jvanegmond 298]

[offtopic]

eeej, your image is Iznogoud VERY NICE ! !

[/offtopic]

Ok, but this shows me all the info and i only want to know for an example that my C:\ drive has 10.356 folders. Nothing more.

I will research the _FileListToArray anyway...

Your name suddenly reminded me of the cartoon I used to watch when I was a lot younger..

Anyway, I sometimes use StringSplit to count the amount of substrings in a string. So why would you not do this:

#include <File.au3>
$Dir = _FileListToArray(@HomeDrive,"*",2)

MsgBox(0, "You have this many folders in " & @HomeDrive, $Dir[0])

[Joon 0]

Try this;

$folderName = "C:\Inetpub"
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
$colSubfolders = $objWMIService.ExecQuery("Associators of {Win32_Directory.Name='" & $folderName & "'} " _
                & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")
MsgBox(0,'Number of folders',$colSubfolders.Count)

[Iznogoud 0]

I adjusted an did a trial and error on the example script in the help file.

#Include <File.au3>
#Include <Array.au3>
$FileList=_FileListToArray(@DesktopDir, "*", 2)
If @Error=1 Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf
MsgBox("", "Test", $FileList[0])

This works great, i just tested it and so far it works . I will test it multiple times untill i know for sure it works as i wanted,

-edit-

Hmmm, i see you edited your script and we got exactly the same. Thanks for so far and i also will look at the solution Joon gave us.

Edited April 11, 2007 by Iznogoud

[MrCreatoR 73]

See for function _DirListToArray() here, and use it like this:

$FoldersCountArr = _DirListToArray($sDir)
$FoldersCount = $FoldersCountArr[0]

[jvanegmond 298]

See for function _DirListToArray() here, and use it like this:

$FoldersCountArr = _DirListToArray($sDir)
$FoldersCount = $FoldersCountArr[0]

_FileListToArray also only returns directory's with an option..

[Iznogoud 0]

I see that _FileListToArray doesn't count the subfolders.

I will check DirListToArray if that commands can check subfolders.

-edit-

I have made this code

#Include <File.au3>
#Include <Array.au3>

$FoldersCountArr = _DirListToArray("D:\")
$FoldersCount = $FoldersCountArr[0]

MsgBox("", "Test", $FoldersCount)

Func _DirListToArray($sPath)
    Local $i, $j, $rlist[1]=[0], $blist, $alist=_FileListToArray ($sPath, '*', 2)
    If IsArray ($alist) Then
        For $i=1 To $alist [0]
            _ArrayAdd ($rlist, $sPath & "\" & $alist [$i])
            $blist = _DirListToArray ($sPath & "\" & $alist [$i])
            If $blist[0]>0 Then
                For $j=1 To $blist [0]
                    _ArrayAdd ($rlist, $blist [$j])
                Next
            EndIf
        Next
    EndIf
    $rlist [0] = UBound ($rlist) - 1
    Return $rlist
EndFunc

For so far this works, but i keep testing

Edited April 11, 2007 by Iznogoud

[randallc 0]

Hi,

_FilelistToArrayNew in my sig is only a tad faster, but has other options, and still needs testers..

Best, Randall