dim myFile, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.OpenTextFile("buffer.txt", 2, true)
myFile.write rltStr
myFile.close
Set myFile = nothing
Set fso = nothing

用这一段试试看，然后看是否在Fterm安装目录下会生成buffer.txt文件并写入文章列表了



【 在 haning (寒宇) 的大作中提到: 】
: 标  题: Re: 大声吼一句，求滚动复制方法 (转载)
: 发信站: 水木社区 (Sat Jan 11 23:56:38 2014), 站内
:
: 用的是64位win7
: 怎么换成写入文件？
: 【 在 aotian (aotian) 的大作中提到: 】
: : 标  题: Re: 大声吼一句，求滚动复制方法 (转载)
: : 发信站: 水木社区 (Sat Jan 11 23:53:41 2014), 站内
: :
: : 应该是操作系统不兼容吧我猜
: : 把这一段放入剪贴板的代码换成写入文件的应该就行了
: :
: : Set form = CreateObject("Forms.Form.1")
: : Set textBox = form.Controls.Add("Forms.TextBox.1").Object
: : textBox.MultiLine = True
: : textBox.Text = rltStr
: : textBox.SelStart = 0
: : textBox.SelLength = textBox.TextLength
: : textBox.Copy
: : Set textBox = nothing
: : Set form = nothing
: :
: :
: :
: : 【 在 haning (寒宇) 的大作中提到: 】
: : : @aotian
: : : 是我打开的方式不对吗？运行后都提示
: : : “
: : : ...................
: :
: : --
: :
: : ※ 来源:·水木社区 newsmth.net·[FROM: 42.81.235.*]
:
:
: --
:
: ※ 来源:·水木社区 newsmth.net·[FROM: 119.57.112.*]
--
FROM 42.81.235.*