Count files in directories

[Tektodon]

Hey,

I need a (simple) way to count all files in a directory AND it's subdirectories.

$d = FileFindFirstFile($tmp&"\*")
    While 1
    $dfile = FileFindNextFile($d)
    If @error Then ExitLoop
    If StringLeft($dfile,1) <> "." And StringLeft($dfile,1) <> ".." And StringLeft($dfile,1) <> "~" Then
    $counttemp = $counttemp +1
    Else
    EndIf
    WEnd

Already tried that, but this of course does not count files in subdirs(which's names are random!). On the other hand it is absolutely nesessary that the function does NOT count the subdirs itself.

[Daniel W.]

Global $number = 0

$search = FileFindFirstFile("C:\*.*")

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $number += 1
WEnd

FileClose($search)

MsgBox(0,"", $number)

Should work

Hmm you need to count the files for all subdirectories i think!

Edited June 6, 2006 by Daniel W.

[mr.underperson]

Maybe something like this...

$total = 0
_CountFilesRecursive("C:\some\folder")
MsgBox(0, "total", $total)

func _CountFilesRecursive($dir)
    $handle = FileFindFirstFile($dir & "\*.*")
    while 1
        $file = FileFindNextFile($handle)
        if @error then exitloop
        if StringInStr(FileGetAttrib($dir & "\" & $file), "D") and ($file <> "." or $file <> "..") then
            _CountFilesRecursive($dir & "\" & $file)
        else
            $total += 1
        endif
    wend
    FileClose($handle)
endfunc

-mu

[ChrisL]

What is wrong with DirGetSize( "path" ,1)

[mr.underperson]

too easy.

-mu