.txt ファイルを開きたいのですが、このエラーが発生します
エラー 1 'Open' が宣言されていません。通常、ファイル I/O 機能は 'Microsoft.VisualBasic' 名前空間で利用できますが、対象のプラットフォームではサポートされていません。
私はvb2010を使用していますが、vb6用であるため、コードが間違っていると思います。vb2010で動作するように変更するには?
Private Sub zapisz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zapisz.Click
Open "C:\Plik.txt" For Append As #1 'zapis
print #1, "a" & a.Text
Print #1, "b" & b.Text
Print #1, "c" & c.Text
Print #1, "d" & d.Text
Close #1
End Sub
Private Sub wczytaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wczytaj.Click
Dim strText As String, strIndex As String
Open "C:\Plik.txt" For Input As #1
Do Until EOF(1)
Input #1, strText
strIndex = Left(strText, 1)
strText = Right(strText, Len(strText) - 1)
Select Case strIndex
Case "a" : a = strText
Case "b" : b = strText
Case "c" : c = strText
Case "d" : d = strText
End Select
Loop
Close #1
End Sub