Imports System Imports System.IO Public Module modmain Sub Main() 'KPD-Team 2001 'URL: http://www.allapi.net/dotnet/ 'E-Mail: KPDTeam@Allapi.net Dim srFile as StreamReader = File.OpenText("C:\autoexec.bat") Console.WriteLine(srFile.ReadToEnd()) srFile.Close End Sub End Module |