窗口一个按钮，一个文本，简洁代码短少
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
'这里是读入
Open s & "\abc.txt" For Input As #1
Input #1, S1
Close #1
MsgBox S1
End Sub
支付宝微信扫一扫，打赏作者吧～本文链接：https://www.kinber.cn/post/4928.html 转载需授权！
推荐本站淘宝优惠价购买喜欢的宝贝:
您阅读本篇文章共花了： 