' Function 159
' VBFILECOUNT ********( nicht geändert )**************
'==========================================================================
' ANZAHL DATEIEN EINES ORDNERS ERMITTELN
' (optional auch Unterverzeichnisse)
'
' sPath       : Startverzeichnis
'
' bSubFolders : 0 = nur Startverzeichnis durchsuchen
'               1 = alle Unterverzeichnisse einbeziehen
'
' sFilter     : Filter, z.B. *.* oder *.exe oder ??0.dat
'
FUNCTION CountFiles ALIAS "VBFILECOUNT" ( _
   sPath AS ASCIIZ PTR, _
   bSubFolders AS INTEGER, _
   sFilter AS ASCIIZ PTR, _
   nBytes AS CURRENCY) EXPORT AS LONG
 
  LOCAL SubDir   AS LONG
  LOCAL f        AS ASCIIZ * 256
  LOCAL hDir     AS LONG
  LOCAL FindData AS WIN32_FIND_DATA
  LOCAL k        AS LONG
  LOCAL dirs()   AS STRING
  LOCAL Filter AS STRING
 
  DIM dirs(1 TO 500) AS STRING
 
  Dirs(1)  = RTRIM$(@sPath)
  IF RIGHT$(Dirs(1), 1) <> "\" THEN Dirs(1) = Dirs(1) & "\"
 
  IF bSubFolders<>0 THEN Filter = "*.*" ELSE Filter = RTRIM$(@sFilter)
 
  k = - 1
  nBytes = 0
 
  DO
    SubDir   = 1
    FindData.dwFileAttributes = %FILE_ATTRIBUTE_DIRECTORY
    f = Dirs(1) + Filter
    hDir = FindFirstFile(f, FindData)
    IF hDir = %INVALID_HANDLE_VALUE THEN EXIT DO
 
    IF LEN(FindData.cFilename)> 0 THEN
      DO
        IF (FindData.dwFileAttributes <> 22) THEN
          IF (FindData.dwFileAttributes AND %FILE_ATTRIBUTE_DIRECTORY) THEN
            IF (bSubFolders <> 0) AND (FindData.cFilename <> "." AND _
              FindData.cFilename <> "..") THEN
              INCR SubDir
              ARRAY INSERT Dirs(SubDir), Dirs(1) + FindData.cFilename + "\"
            END IF
          ELSE
            IF @sFilter = "*.*" THEN
              INCR k
              nBytes = nBytes + FindData.nFileSizeLow
            ELSEIF MatchFilter(FindData.cFilename, RTRIM$(@sFilter))<>0 THEN
              INCR k
              nBytes = nBytes + FindData.nFileSizeLow
            END IF
          END IF
        END IF
      LOOP WHILE FindNextFile(hDir, FindData)
    END IF
    FindClose hDir
 
    ARRAY DELETE Dirs(1) FOR 498
  LOOP WHILE LEN(Dirs(1))
  ERASE Dirs
  FUNCTION = k
END FUNCTION
' *****************************************************************************
' **