请教怎样同时保存2个文件

新手，请教一个问题。我是从text1控件中按规则取内容计算汇总，保存成csv格式。我用commondialog，可以保存我计算的内容。但我想同时把text1中的内容也保存成同名text格式。就是程序运行时点击保存按钮，保存为CSV格式是可见的，保存成同名text格式是不可见的，也就是保存CSV同时自动保存同名text。说得有些乱，不知道怎么整，请教各位高手。谢谢了！ --------------------编程问答-------------------- 一样的整法，vb操作文件而已。肯定是能实现的 --------------------编程问答-------------------- open出两个文件1，2，
分别put 到1，2，
分别close 1，2 --------------------编程问答-------------------- --------------------编程问答-------------------- CommonDialog1.Flags = CommonDialog1.Flags Or cdlOFNOverwritePrompt
CommonDialog1.FileName = pname
CommonDialog1.ShowSave
On Error GoTo cancellact

Open CommonDialog1.FileName For Output As #1
  Print #1, "Group"; ","; "AVG"; ","; "Max"; ","; "Min"; ","; "Range"; ","; "Unif 1"; ","; "Unif 2"; ","; "Unif 3"
pname = pname & "-原始数据.txt"
Open pname For Output As #2
  Print #2, text1.Text
Close #1, #2
exit sub'必须
cancellact:
  If Err.Number = 32755 Then Exit Sub

End Sub

文件名在打开文件之前，用字符串表达，一个叫fa.txt，一个叫fa.csv即可，fa你自己按照日期进行计算的一个字符串

补充：VB ,  基础类