vb 读写TXT文件

用VB在A:\中，新建888.TXT，想写入下面的字:
 
8.15号凌晨我就起来，封存了自己的QQ空间，不在公开评论和留言了，大家以后逛扬扬空间记得帮扬扬一起“默舟曲”哀为舟曲同胞祈福，加油，风雨同舟...
 
第二次用VB来读取的时候可以修改并保存。
 
那位大虾帮帮我的忙??????
 
最好用QQ对面交谈或者把工程打包一下，发给我，让我看看，让我学习学习。
做得好的，追加10分！

答案：command1 用VB在A:\中，新建888.TXT，想写入下面的字:
command2 读取到TEXT1
command3 保存TEXT1的内容
测试通过 源代码
'709233593 问问团队 我们在一起
Private Sub Command1_Click()
Open "A:\888.txt" For Output As #1
    Print #1, "8.15号凌晨我就起来，封存了自己的QQ空间，不在公开评论和留言了，大家以后逛扬扬空间记得帮扬扬一起“默舟曲”哀为舟曲同胞祈福，加油，风雨同舟..."
Close #1
End Sub
Private Sub Command2_Click()
    Dim Text_File As String
    Open "A:\888.txt" For Input As #1
    Do Until EOF(1)
        Input #1, Text_File
        Text1.Text = Text1.Text & Text_File & Chr(13) & Chr(10)
        DoEvents
    Loop
    Close #1
End Sub
Private Sub Command3_Click()
Open "A:\888.txt" For Output As #1
    Print #1, Text1.Text
Close #1
End Sub
用textbox1空间输入你要写的话， LABEL1输出读取的话
VB.NET代码
'写入
MY.computer.filesystem.readalltext("路径","txexbox1.text",flase)
'读取
my.computer.filesystem.writealltxt("路径","leabel1.text")

上一个：关于VB的自学
下一个：VC语言VB语言C++语言有什么分别？