VBS常用脚本 好东西
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| pt.quit 文件夹的简单操作 Setfso=Wscript.CreateObject(Scripting.FileSystemObject)‘声明 Setf=fso.CreateFolder(%PATH%)创建文件夹 Sete=getFolder(%PATH%)类似于“绑定目标” e.copy(%PATH2%)复制文件夹 fso.deletefolder(%PATH%)删除文件夹 引用内容 eg. 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 引用内容 eg: ConstwdFormatText=2 SetobjWord=CreateObject(Word.Application) SetobjDoc=objWord.Documents.Open(d:\doc1.doc) objDoc.SaveAsg:\doc1.txt,wdFormatText objWord.Quit |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: vbs/js脚本编程教学（2）下一篇: VBS教程：VBScript 基础-使用条件语句
关于VBS常用脚本 好东西的所有评论
