Question

如何把VB程序运行的结果保存到本地文本文件中？

本地文本文件可以是新建的，也可以是原有的。

Answer 1

Private Sub Command1_Click() '保存结果
Open "D:\1.txt" For Append As #1
Print #1, 你的结果
Close #1
End Sub

文件路径和文件名自己设置，如没有该文件则会自己创建

追问

运行结果为“变量未命名”，不知咋回事？

Answer 2

Private Sub Command1_Click() '保存结果
Open "D:\1.txt" For Append As #1
Print #1, 你的结果
Close #1
End Sub
-------------------这个是 系统编码的

Const adTypeText = 2
Set DST = CreateObject("ADODB.Stream")
With DST
.Open
.Charset = 输出编码
.Type = adTypeText
End With
DST.WriteText 输出文字
DST.SaveToFile (FullName), 2
DST.Close
Set DST = Nothing
-------------------这个是 系统编码的

Answer 3

要看你保存什么样的内容了，是什么数据格式，占用多大空间

追问

保存数字，最多30M吧。

追答

那就用binaray模式打开文件，用get取出数据，put写入数据