Dim stringBuff As String 'ファイルから読み込んだ文字列を入れる変数 Dim reader As System.IO.TextReader 'ファイルから文字列を読み込むためのIO変数 'ファイルを読み込むためのIO変数を開く reader = My.Computer.FileSystem.OpenTextFileReader("C:\プログラミング\8.txt") 'ファイルの内容を一行読み込む stringBuff = reader.ReadLine() 'ファイルの内容が終わるまで繰り返す Do While stringBuff Is Not Nothing ' : 'やりたい処理を行う ' : '次の行を一行読み込む。 stringBuff = reader.ReadLine() Loop reader.Close() 'IO変数を閉じる