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