VBS中常用脚本代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| **" wscript.sleep2000 wshshell.sendkeys"{ENTER}" Wscript.quit 文件夹的简单操作 Setfso=Wscript.CreateObject("Scripting.FileSystemObject")''声明 Setf=fso.CreateFolder("%PATH%")创建文件夹 Sete=getFolder(%PATH%)类似于"绑定目标" e.copy("%PATH2%")复制文件夹 fso.deletefolder(%PATH%)删除文件夹 程序代码 Setfso=Wscript.CreateObject("Scripting.FileSystemObject") Setf=fso.CreateObject("C:sample") f.copy("D:sample") fso.deletefolder("C:sample") ''(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的统一性) 将某一指定文件夹的所有只读文件转为可读文件 ConstReadOnly=1''设只读属性对应值为1 SetFSO=CreateObject("Scripting.FileSystemObject")''声明 SetFolder=FSO.GetFolder("%PATH%")''绑定文件夹 SetcolFiles=Folder.Files''文件夹所有文件 ForEachobjFileincolFiles''下列语句应用于文件夹所有文件 IfFile.AttributesANDReadOnlyThen''这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读 File.Attributes=File.AttributesXORReadOnly ''对判断结果为Ture（默认为True）''执行XOR逻辑运算，将其改为可读 EndIf''结束判断 Next 将Word文件另存为文本文件 ConstwdFormatText=2''设置常数值 (当该值为8时另存为HTML文档，为11时另存为XML文档) SetobjWord=CreateObject("Word.Application")''申明调用函数 SetobjDoc=objWord.Documents.Open("%Path%")''打开某DOC文件 objDoc.SaveAs"%PATH2%",wdFormatText另存为…… objWord.Quit 程序代码 ConstwdFormatText=2 SetobjWord=CreateObject("Word.Application") SetobjDoc=objWord.Documents.Open("d:doc1.doc") objDoc.SaveAs"g:doc1.txt",wdFormatText objWord.Quit |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于VBS中常用脚本代码的所有评论
