' fread1.vb Imports System Imports System.IO Imports System.Text Class FileRead1 Shared Sub Main() Dim sr As New StreamReader("readme.txt", _ Encoding.GetEncoding("Shift_JIS")) Dim text As String = sr.ReadToEnd() sr.Close() Console.Write(text) End Sub End Class ' コンパイル方法:vbc fread1.vb