Imports System.IO

Public Function ffhidden(ByVal FileOrFolderName As String) As Boolean
  Try
    Dim attr As FileAttribute
    If Directory.Exists(FileOrFolderName) Then
      ' Verzeichnis
      attr = New DirectoryInfo(FileOrFolderName).Attributes
    ElseIf File.Exists(FileOrFolderName) Then
      ' Datei
      attr = New FileInfo(FileOrFolderName).Attributes
    End If
    If attr And FileAttributes.Hidden Then Return True
  Catch ex As Exception
  End Try
  Return False
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de