> > 何が違うよ？
> VB6
>  1: Private Sub Form_Load()
>  2:   Const ForReading = 1
>  3:   Const TristateTrue = -1
>  4:   Dim fs, f
>  5:   Set fs = CreateObject("Scripting.FileSystemObject")
>  6:   Set f = fs.OpenTextFile("c:\testfile.txt", ForReading, False, TristateTrue)
>  7:   Do While f.AtEndOfStream <> True
>  8:     s = f.ReadLine
>  9:     Debug.Print s
> 10:   Loop
> 11:   f.Close
> 12: End Sub
> VB.NET
>  1: Imports System.IO
>  2:
>  3: Public Class Form1
>  4:   Inherits System.Windows.Forms.Form
>  5:
>  6: #Region " Windows Form Designer generated code "
>  7:
>  8:   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
>  9:     Dim reader As StreamReader
> 10:     reader = New StreamReader( _
> 11:       New FileStream("c:\testfile.txt", FileMode.Open, FileAccess.Read), _
> 12:       System.Text.Encoding.GetEncoding("UTF-16"))
> 13:     Do
> 14:       Dim s As String
> 15:       s = reader.ReadLine()
> 16:       If s = Nothing Then Exit Do
> 17:       Debug.WriteLine(s)
> 18:     Loop
> 19:     reader.Close()
> 20:   End Sub
> 21: End Class

ﾎﾟｹｺﾝ弄ってる高専生が泣いてるな

参考：2004/01/17(土)00時42分24秒