运行前请确定你的电脑安装了word。

i=0
set wshshell=createobject("wscript.shell")
Set objWord = CreateObject("Word.Application") 
Set colTasks = objWord.Tasks 
do while i<30
For Each objTask in colTasks 
if left(objTask.Name,1)="与" then
wshshell.appactivate objTask.Name
WshShell.SendKeys "{enter}"
wshshell.sendkeys "^v"
WshShell.SendKeys i
wscript.sleep 600
WshShell.SendKeys "%s"
i=i+1
end if 
next
loop 

vbs实现的保存剪贴板中的文本并编辑或保存
保存剪贴板中的文本.vbs原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里setfso=createobject("scrip

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

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