Dim c As Integer = 0, h As Integer = 0
For Each file As String In IO.Directory.GetFiles("wo-auch-immer")
   Dim fileattr As IO.FileAttributes = New IO.FileInfo(file).Attributes
 
   If (fileattr And IO.FileAttributes.Hidden) <> IO.FileAttributes.Hidden Then
      c += 1
   Else
      h += 1 'hidden-attr.
   End If
Next file