VB读写文件

问题描述

精选答案

'显示所选择的文本文件的内容,流操作，读文件

r Private Sub showtxt()

r Dim ae As New ASCIIEncoding()

r Dim str As String

r Dim str1 As String

r Dim bytes(1000) As Byte

r Dim node As TreeNode

r node = Me.TreeView1.SelectedNode

r str = getpath(node)

r fs = New FileStream(str, FileMode.Open)

r fs.BeginRead(bytes, 0, 1000, AddressOf endread, New Object())

r str1 = ae.GetString(bytes)

r Me.TextBox2.Text = str1

r If Err.Number <> 0 Then

r MsgBox(打开文件失败！)

r Else

r MsgBox(打开文件成功！)

r End If

r End Sub

r Private Sub endread(ByVal l As IAsyncResult)

r fs.EndRead(l)

r fs.Close()

r End Sub