VBS
sierllen
这个作者很懒,什么都没留下…
展开
-
用一个实例学习VBS中使用fso对象的基本方法
<br /> Set fso = createobject("scripting.filesystemobject") Set files= fso.getfolder("D:/vbs_test").files For Each f In files MsgBox f.type If f.type = "MP3 格式文件" Then MsgBox "找到了一个MP3文件"&chr(13)&chr(10)&"路径为:"&f.path&chr(13)&chr(原创 2011-02-10 09:31:00 · 413 阅读 · 0 评论 -
vbs Run方法和Exec方法
<br />Run 方法:<br />Run方法有三个参数,<br />第一个参数是你要执行的程序的路径,<br />第二个参数是窗口的形式,0后台运行;1正常运行;2最小化;3最大化;缺省的话表示正常运行<br />第三个参数是表示这个脚本是等待还是继续执行,如果设为了True,脚本就会等待调用的程序退出后再向后执行。<br />例1:<br />Set ws = CreateObject("WScript.Shell")<br />ws.Run "notepad",,True<br />ws.Run "原创 2011-03-01 09:37:00 · 3655 阅读 · 0 评论 -
VBS对文本文件的读写方法
<br /> //--------------读例子<br /> Set fso = CreateObject("scripting.FileSystemObject") //绑定fso对象<br /> If fso.FileExists(s_FileUrl) then //用.FileExists方法检查文件是否存在<br /> Set myfile = fso.openTextFile(s_File原创 2011-03-21 16:54:00 · 2492 阅读 · 0 评论 -
系统缺失FSO对象的解决办法
<br /> <br />' 1、首先在系统盘中查找scrrun.dll,如果存在这个文件,请跳到第三步,如果没有,请执行第二步。<br />' 2、在安装文件目录i386中找到scrrun.dl_,用WinRAR打开此文件进行解压缩,得到scrrun.dll,<br />' 然后复制到x(你的系统盘):/windows/system32/目录中。<br />' 3、运行regsvr32 scrrun.dll,提示成功后修复完成。原创 2011-03-26 09:56:00 · 318 阅读 · 0 评论 -
vbs实现左移右移
<br />Function LShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "JScript" LShift = sc.Eval(Value & "<<" & Shift) End Function Function RShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.L原创 2011-04-11 14:15:00 · 361 阅读 · 0 评论 -
vbs实现左移右移
<br />Function LShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.Language = "JScript" LShift = sc.Eval(Value & "<<" & Shift) End Function Function RShift(Value, Shift) Set sc = CreateObject("MSScriptControl.ScriptControl") sc.L转载 2011-04-11 14:15:00 · 321 阅读 · 0 评论 -
fso对象的高级应用
枚举文件夹属性描述演示脚本使用 FileSystemObject 来枚举文件夹属性。此脚本必须运行在本地计算机上。脚本代码Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolde转载 2011-08-05 16:37:20 · 548 阅读 · 0 评论 -
Microsoft.XMLHTTP对象
MSXML中提供了Microsoft.XMLHTTP对象,能够完成从数据包到Request对象的转换以及发送任务。 创建XMLHTTP对象的语句如下: Set objXML = createObject(Msxml2.XMLHTTP) 或Set objXML = createObject("Microsoft.XMLHTTP")' Or, for version 3.0 of XM转载 2011-11-14 13:23:57 · 348 阅读 · 0 评论