Стив, ты маньяк.Ну да ладно, это временное состояние.
Тыкай мышей и иди в фак.
Может ВБ-шный код будет полегче?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyString As String
Dim ReadString As String
Dim iFr As Short
iFr = FreeFile()
ReadString = CurDir() & "\test.txt"
FileOpen(iFr, 1, OpenMode.Binary)
MyString = "new information"
FilePut(MyString)
FileClose(iFr)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles Button2.Click
Dim MyString As String
Dim ReadString As String
Dim iFr As Short
iFr = FreeFile()
ReadString = CurDir() & "\test.txt"
FileOpen(iFr, ReadString, OpenMode.Binary)
MyString = New String(" "c, 15)
FileGet(iFr, MyString)
FileClose(iFr)
MsgBox(MyString)
End Sub
И ещё, Стив.
File Access Functions!