我的需求是，
1、当用户点“保存”按钮，则系统弹出类似于windows的提示对话框，要求用户输入文件名（并且有判断文件名不重复的功能），然后系统在用户指定的路径生成以其命名的txt，并将相关数据保存在该txt文件中。我的如下代码，只能实现保存在指定的E:\abc.txt中，这个代码应该如何改？

Private Sub Command2_Click()
Dim response As Integer
Open "E:\abc.txt" For Append As #1

For i = 0 To num - 1
  Print #1, Text17.Text, arry(0, i), arry(1, i), h_arry(i), vbCrLf;
  Next i
response = MsgBox("数据保存成功", vbOKOnly, "保存")
Close #1
End Sub
2、当用户点“载入”按钮，系统弹出则系统弹出类似于windows的提示对话框，用户选择已有的txt文件，读取其中所有数据，然后进行相关操作。
请老师指教

[ 本帖最后由 雨初飞雪 于 2010-11-28 16:13 编辑 ]

abc.txt 文件的格式呢？

abc.txt里的内容和格式很简单，有多条数据，然后每条数据就是用arry(0, i), arry(1, i), h_arry(i）三个数组传过来的3个数字