1、一程序的保存命令
CommonDialog1.Filter = "all files(*.*)|*.*|文本文件(*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, "第一部分："
Print #1, "总共花费="; Text0.Text;"元"
Close #1
End If
2、保存为名叫aa.txt的文件
那么，重新运行程序，用CommonDialog1.ShowOpen命令打开这个aa.txt文件，
请问：怎样才能让界面里的text0.text文本框内显示已存在aa里的内容呢？

先谢谢大家了~~~

你只学了怎么写文件没学怎么读文件么?
文件名都有了,真是的,这还要问

input
line input
get

fso  getfile openastextstream readall

不是，我是想问通过打开对话框的方式选择任意文件的操作问题，
不是程序已经指定的文件。

请楼上几位指点下吧。

就是文件保存后（a.txt或者b.txt），以后再打开任意一个文件时，界面的text0.text里就会出现之前保存的内容。

再次感谢~~~

做标记,
或着你去学学怎么操作INI文件.

Dim fname As String
Dim aa As String

CommonDialog1.Action = 1
If Err.Number <> 32755 Then
fname = CommonDialog1.FileName
Open fname For Input As #1
Input #1, aa
Text5.Text = aa
Close #1
End If
通过上面的代码可以了，
但是只有在正确的选择文件的时候才是对的。

如果点取消或者任意不存在文件名字时就报错。
哪里需要完善下，老大们支个招吧，实在是乱的不行。

on errer goto ......
这个你会用不？