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 |