ファイルをバイナリで読み込むには？？ (ID:116418)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 おはようございます！返信ありがとうございます。 コードを貼り付けてどんな処理をしてるんだろうって所から始めてるのでまだよくわからないところが多々あるんですよね・・。 ダイアログのところは、 Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim alltext, linetext As String dialog1.Filter = "textfiles(*.*)|*.*" dialog1.ShowDialog() If dialog1.FileName <> "" Then Try FileOpen(1, dialog1.FileName, OpenMode.Binary) Do Until EOF(1) linetext = LineInput(1) alltext = alltext & linetext & vbCrLf Loop Label1.Text = dialog1.FileName TextBox1.Text = alltext TextBox1.Enabled = True Catch ex As Exception MsgBox("開けない") Finally FileClose(1) End Try End If TextBox1.Text = alltext End Sub でやっていました。ファイルを読み込む時点に問題があるのでしょうか。。 これから学校いってきます！！