高手能指点下吗，请问这个vbs怎么修改，

pichuli2019

能让复制的text文本，添加.txt末尾，谢谢了

1.     set fso=createobject("scripting.filesystemobject") : name=1
   
2.     Dim na
   
3.     'na=Inputbox("请输入拓展名:","拓展名","txt")
   
4.     na="txt"
   
5.     while fso.fileexists(name&"."&na)=true
   
6.     name=name+1
   
7.     wend
   
8.     set o=fso.opentextfile(name&"."&na,2,true)
   
9.     set hf=Createobject("htmlfile")
   
10.     wind=hf.parentwindow.clipboarddata.getdata("text")
    
11.     o.writeline wind : o.close
    

复制代码

pichuli2019

回复 1# pichuli2019
这个每次复制文本运行，都会新建文本里的

pichuli2019

能让复制的text文本，添加到指定.txt末尾，谢谢了回复 2# pichuli2019