窗口一个按钮，一个文本，简洁代码短少

Private Sub Command1_Click()

Dim s As String, S1 As String

s = Environ("temp")

'这里是写入

Open s & "\abc.txt" For Output As #1

Print #1, Text1

Close #1

'这里是读入