生成文件、写入文件、读取文件
Dim filetxt As System.IO.StreamWriter '生成StreamWriter对象
Try
filetxt = IO.File.CreateText("f:\\wbnet.txt") '生成文件
Catch err As Exception
MsgBox("Create file error!!")
End Try
filetxt.WriteLine("this is a file") '写入数据
filetxt.Close() '关闭文件
Dim filer As IO.TextReader
Try
filer = IO.File.OpenText("f:\\wbnet.txt")
Catch erro As Exception
MsgBox("Read error!")
End Try
Do While (filer.Peek <> -1) '读取文件内容
Dim str As String
str = filer.ReadLine
txtr.text = txtr.text + str
Loop