Hjælp til kun at tælle synlige filer

Hej

Jeg er ved at lave et script som tæller alle filer i en specifik mappe - herunder filer i undermapper.

Scriptet virker, men tæller også alle systemfiler og skjulte filer. Hvordan få jeg den til kun at tælle de "synlige" filer?

Samtidig kunne jeg også godt tænke mig at få talt alle mapper og undermapper!

 ' VBScript
 Option Explicit
  
 Dim fs ' variable declared outside a procedure (this is a global variable)
        ' this is hold a reference to the file system object
 
  
 ' create an instance
 Set fs = CreateObject("scripting.filesystemobject")
 
 ' count files in windows directory
 Dim CountFilesResult
 CountFilesResult = CountFiles ("C:\Test\")
 
 ' takes a string argument containing the name of the directory
 ' returns an integer contiang the nubmer of files in that direcrectory
 ' and all sub directories
 Function CountFiles (ByVal StrFolder)
     Dim ParentFld
     Dim SubFld
     Dim IntCount
  
         ' note the use of the fs global variable
     Set ParentFld = fs.GetFolder (StrFolder)
     
         ' count the number of files in the current directory
     IntCount = ParentFld.Files.Count
     
     For Each SubFld In ParentFld.SubFolders
         ' count all files in each subfolder - recursion point
         IntCount = IntCount + CountFiles(SubFld.Path)
     Next
  
     ' return counted files
     CountFiles = IntCount
 End Function

Håber I kan hjælpe