Function for file count in a directory

[Luther50]

Is there a ready made function to count the files in directory? I have checked the help file and cannot find one listed. DirGetSize gives the total number of bytes of all the file combined.

I am reading the names in a directory into an array. I would like to allocate an array with the number of files in the directory before I traverse the list.

If this is not available, I can code it with FileFindFirstFile and loop with FileFindNextFile. Can some suggest a better solution for than this?

An alternative is to redim the array as I go. Is there a more efficient method?

Regards

Luther50

There is ways more than one way to solve a problem...

[MrMitchell]

Check out _FileListToArray(). I think it is in File.au3 UDF

[KaFu]

DirGetSize() returns number of files if you set the extended flag to 1

$array = DirGetSize(@SystemDir,1)
ConsoleWrite("Directory " & @SystemDir & " contains " & $array[1] & " files" & @crlf)

Note that DirGetSize is not interruptable, for that use my UDF _DirGetSizeEx(), link in my signature.

[sdaskalov]

Func GetFileCount($path,$ext, $Recurcive=False)
 Local $Count=0

 Local $objFSO= ObjCreate("Scripting.FileSystemObject")
;~ Count files in current folder
 For $objFSO_File in  $objFSO.GetFolder($path).Files
  if $objFSO.GetExtensionName($objFSO_File.Name) = $ext then $Count += 1
 Next
;~ Recursive all subfolders
 if $Recurcive then
  For $objFSO_SubFolder in  $objFSO.GetFolder($path).Subfolders
   $Count += GetFileCount($objFSO_SubFolder.Path,$ext,$Recurcive)
  Next
 EndIf
 Return $Count
EndFunc

Func GetSubTreeFileCount_ByWildCard($path,$WildCard="*.*",$Recurcive=False)
 Local $Count=0
;~ Count files in current folder
 $search = FileFindFirstFile($path & "\" & $WildCard)
 If $search <> -1 Then
  While 1
   $file = FileFindNextFile($search)
   If @error Then ExitLoop
   $Count+=1
  WEnd
 EndIf
 FileClose($search)
;~ Recursive all subfolders
 if $Recurcive then
  Local $objFSO= ObjCreate("Scripting.FileSystemObject")
  Local $objFSO_Folder  = $objFSO.GetFolder($path)
  Local $colFSO_SubFolders  = $objFSO.GetFolder($path).Subfolders
  For $objFSO_File in  $colFSO_SubFolders
   $Count += GetSubTreeFileCount_ByWildCard($objFSO_File.Path,$WildCard,$Recurcive)
  Next
 EndIf
 Return $Count
EndFunc

[guinness]

Couple of things wrong with your post...

1. You clearly don't know how to post code on the Forum. To post code select <> in the toolbar and paste there.
2. You're a little late to the party, in that this is over 6 years ago. I doubt they need the answer anymore.
3. Function already exists in the UDFs for recursively searching through a directory. Has done for two years now.
4. I doubt you wrote that yourself, so this is blatant plagiarism. Unless you mark where you got it from.

Congratulations, not a great start to the Forum.