Imports System
Imports System.IO
Public Module modmain
   Sub Main()
      'KPD-Team 2001
      'URL: http://www.allapi.net/dotnet/
      'E-Mail: KPDTeam@Allapi.net
      If (File.GetAttributes("c:\autoexec.bat") And FileAttributes.Hidden) _
         = FileAttributes.Hidden Then
         Console.WriteLine("Hidden")
      Else
         Console.WriteLine("Not Hidden")
      End If
   End Sub
End Module

Close this window