vb的文件操作问题！急~~~~
老师的作业，，用vb做一个简单的记事本程序，但是关于文件操作的那个功能不会，，下面是打开对话框和保存对话框，要实现的功能是，点击打开或双击右侧的一个TXT文档，会把内容显示在text控件里，而且可以修改文件内容，修改完，点保存，可以存储，并覆盖原来的文件，或者是在空白text控件里写一些东西，点保存，可以保存，并可以选择保存路径！~



[[it] 本帖最后由 沁心寒 于 2008-6-15 19:04 编辑 [/it]]

我考，，我先声明啊 ，这不是我的作业 ，，是我给别人做的，，而且人家老师就要求这么做，，我有什么办法，，简单的办法我当然知道，，但是就得这么做，，你们会就说，，不会就不要说风凉话！！！OK？？？

堂堂编程论坛难道连这个问题都解决不了吗？？？？？？

我知道用CommanDialog简单啊 ，，但是他们老师就是这么要求的，，我也没办法啊！~~~~

保存代码我已经解决了，，麻烦写下打开代码吧，，，注：不是richtextbox
是textbox

Private Sub Command1_Click()
Dim Str, Sav As String
If Len(File1.FileName) <> 0 Then
Str = ""
Open Dir1.Path & File1.Path & File1.FileName For Input As #1
Do While Not (EOF(1))
Line Input #1, Sav
Str = Str + Sav + vbCrLf
Loop
Close #1
Form1.Text1.Text = Str
Else
MsgBox "不能为空!"
End If

Me.Hide


End Sub

Private Sub Command2_Click()
Me.Hide
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub



Private Sub Form_Load()
File1.Pattern = "*.txt"
End Sub


这是我写的代码，，你看看那里有错误！~~~