[问题求助] [已解决]VBS如何创建txt文本文件并写入内容，再复制和编辑？

wsxfysz

VBScript  初学   
现在实现一个   C盘 创建一个txt文件  并写入
拷贝到D盘   命名另外一个文件  并编辑内容
在每一行  后面添加几个“+”号              各位大哥大姐帮忙看看哪里错了     现在的结果是D盘文件没变化

Const forreading=1,forwriting=2,forappending=8
Dim fso,m,file,reg,s
data="hello,world"
data2="hello,world++++"
set fso =createObject("scripting.filesystemobject")
set m=fso.OpenTextFile("c:\textx1.txt",2,true)
m.writeline data
m.WriteLine data
m.writeline data
m.writeline data
call fso.copyfile("c:\textx1.txt","d:\texty1.txt")
set file=fso.OpenTextfile("d:\texty1.txt")
s= file.ReadAll
file.Close
s=Replace(s,"hello,world","hello,world++++")
m.Close
file.close
Set m=Nothing
Set file=Nothing
Set fso=nothing
复制代码

wsxfysz

回复 2# Nsqs


      多谢  多谢     稍微做了修改  就成功了

Nsqs

回复 1# wsxfysz

...

s=Replace(s,"hello,world","hello,world++++")
fso.createtextfile("d:\texty1.txt").write s
复制代码

...