Question

VB打开一个TXT的内容写入另一个任意位置任意名称的TXT

编了一个小程序，希望将一个TXT打开后，写入到另一个TXT，这段程序中Open...As #2限定了文件名称以及保存路径，觉得这样会不太方便。希望能打开一个任意的文件，等到写入完成，再saveas自由选择路径及名称。请问有哪些比较好的方案呢？恳请高手指点迷津。
或者我是想，原先的这个TXT可读可先，写了之后不改动原文件，而是另存
为一个文件，这该怎么实现？
Dim a() As Variant
Dim n As Integer, i As Integer
Private Sub Command1_Click()
Open "C:\河南\31029200-2005.txt" For Input As #1
Open "C:\31029200.txt" For Output As #2
n = 0
Do While Not EOF(1)
n = n + 1
ReDim Preserve a(5, n)
Input #1, a(1, n), a(2, n), a(3, n), a(4, n), a(5, n)
Loop
For i = 1 To n
a(1, i) = 3102923450#
Print #2, a(1, i); a(2, i); a(3, i); a(4, i); a(5, i)
Next i
Close #1
Close #2
End Sub

Answer 1

选择文件可用 通用文件对话框 控件
文本文件的读写可用 filesystemobject对象