Public Function ffhidden(ByVal FileOrFolderName As String) As Boolean
        If System.IO.Directory.Exists(FileOrFolderName) Then
            Dim FSI As System.IO.DirectoryInfo
            Dim sFSI As System.IO.DirectoryInfo() = New System.IO.DirectoryInfo( _
              FileOrFolderName).GetFileSystemInfos
            Dim DirInfo As New System.IO.DirectoryInfo(FSI.Fullname)
            If DirInfo.Attributes & System.IO.FileAttributes.Hidden Then
                ffhidden = True
                Exit Function
            End If
            ffhidden = false
        End If
    End Function