保存剪贴板中的文本并编辑.vbs

set fso=createobject("scripting.filesystemobject") : name=1
Dim na
na=Inputbox("ÇëĘäČëÍŘŐšĂű:","ÍŘŐšĂű","txt")
while fso.fileexists(name&"."&na)=true
name=name+1
wend
set o=fso.opentextfile(name&"."&na,2,true)
set hf=Createobject("htmlfile")
wind=hf.parentwindow.clipboarddata.getdata("text")
o.writeline wind : o.close
createobject("wscript.shell").exec "notepad.exe "&name&"."&na&""