' readalltext.vb Imports System.IO Class ReadAllText Shared Sub Main() ' シフトJISのファイルの読み込み Dim text1 As String = File.ReadAllText("shiftjis.txt", _ System.Text.Encoding.GetEncoding("Shift_JIS")) ' UTF-8のファイルの読み込み Dim text2 As String = File.ReadAllText("utf8.txt") End Sub End Class ' コンパイル方法:vbc readalltext.vb