批处理之家 - Powered by Discuz! Board

标题: [已解决]将剪贴板的文本保存为自定义文件的VBS点“取消”失效？ [打印本页]

作者: Wingl83 时间: 2010-9-9 20:05 标题: [已解决]将剪贴板的文本保存为自定义文件的VBS点“取消”失效？

从网上摘抄一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

[ 本帖最后由 Wingl83 于 2010-9-10 10:42 编辑 ]

作者: zqz0012005 时间: 2010-9-9 21:37

点“取消”按钮又不是结束脚本，只是Inputbox函数结果的一种。
要退出需要自己处理：
na=Inputbox("请输入拓展名:","拓展名","txt")
if na="" then WScript.Quit

作者: Wingl83 时间: 2010-9-10 10:41

楼上正解

欢迎光临批处理之家 (http://www.bathome.net/)