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







                                                             注：是vb6.0不是vb.net

[ 本帖最后由 qinxinhan 于 2008-6-15 00:56 编辑 ]

就没人能回答这个问题吗？？？？？？？？？？？？？？？？？？？

我也是VB新手..
比你还新...
帮忙去菜鸟提问那回答下我问题吧。。。。
你这的等吧。。。

我怎么没找到你发的帖子啊！~~~在哪@@~~~

还有教VB6的啊，夸张。
去百度搜“FileSystemObject的用法”
要更简单就不要用Text控件，用RichText，自带了Open方法和Save方法。
高手了就用Open语句。

引用:

原帖由 编程小猪 于 2008-6-15 19:41 发表
还有教VB6的啊，夸张。
去百度搜“FileSystemObject的用法”
要更简单就不要用Text控件，用RichText，自带了Open方法和Save方法。
高手了就用Open语句。

和FILESYSTEMOBJECT没关系，他要得到文件的路径


楼主的方法不好，你的那个要操作DIRVE和PATH，

不如直接用dlgCommon来的方便

LZ明明说关于文件操作不会，又没说路径选择不会
路径是调用CommonDialog的Open或Save方法后FileName的值。

我当然知道用CommonDialog方便啊  但是老师非得让这么弄，，，你以为我不想省事吗，，唉，，

FileOpen.frm

复制内容到剪贴板

代码:

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

Private Sub Command2_Click()
FileOpen.Hide
End Sub

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

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

FileSave.frm

复制内容到剪贴板

代码:

Private Sub Command1_Click()
Open File1.Path & Text1.Text For Output As #1
Print #1, FileEdit.Text1.Text
Close #1
FileSave.Hide
End Sub

Private Sub Command2_Click()
FileSave.Hide
End Sub

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

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

FileEdit

复制内容到剪贴板

代码:

Private Sub Command1_Click()
FileOpen.Show
End Sub

Private Sub Command2_Click()
FileSave.Show
End Sub

Private Sub Command3_Click()
End
End Sub

楼上的哥们，，提几点建议啊，，就是
Open File1.Path & File1.FileName For Input As #1
老是提示文件未找到，，可能是编写的错误，，
还有就是保存对话框的Open File1.Path & Text1.Text For Output As #1这句话，，如果就这样写的话，，保存的文件名都是FILE1.path再加上TEXT1.TEXT，，如果去掉FILE1.PATH&的话，，保存的就是text1.text啦，，而且不去掉的话，保存的路径也不对，，
再有就是保存对话框的text1.text在写文件名的时候必须加上后缀，如果不加，保存出来的就是未知文件，，能不能加上自动加上后缀啊，，，
所以说，保存对话框是写好了，，这要感谢楼上的哥们啦！~~~~~

希望楼上的能把我上面说的改一下 ，，谢谢了！~~~~