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