vbs 获取当前目录的实现代码

2017年02月06日 175 阅读

CMD当前路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.PathWscript.echo test 当前VBS路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.PathWscript.ec...

vbs 获取当前目录文件数量的代码（不包括子文件夹中的）

2017年02月06日 147 阅读

复制代码 代码如下:i=0set fso=CreateObject（"Scripting.FileSystemObject"）set fs=fso.getfolder（"."）.filesfor each f in fsi=i+1nextmsgbox "文件总数:"&i...

VBS获取当前目录下所有文件夹名字的代码

2017年02月06日 196 阅读

VBS获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。测试的时候要保证当前目录下有文件夹才可以，否则输出为空。复制代码 代码如下:Set ws=WScript.CreateObject（"wscript.shell"）w=ws.CurrentDirectorySet fso=WScript.CreateObject（"scripting.filesystemobject"）Set fs=fso.GetFolder...

VBS读取注册表的两种方法

2017年02月06日 189 阅读

第一种 通过wshshell对象的regread复制代码 代码如下:RegValue = CreateObject（"Wscript.Shell"）.RegRead（"XXXX_XXXXXXXX_XXXXXXXXXX"）Msgbox（RegValue）更多的操作可以参考这篇文章 http://www.jb51.net/article/18125.htm第二种方法： 通过wmi复制代码 代码如下:Const HKLM = &H80000002strPath ...

查看系统C盘剩余空间的VBS脚本

2017年02月06日 148 阅读

复制代码 代码如下: "说明 : 通过VBS脚本查看 系统C盘 剩下的空间 "Creator : Eric1991 "Date ： 2013-11-4 Set objWMIService = GetObject（"winmgmts:"） Set objLogicalDisk = objWMIService.Get（"Win32_LogicalDisk.DeviceID="c:""） Wscript.Echo cint（objLogicalDisk.Free...

利用VBS实现显示系统服务列表

2017年02月06日 151 阅读

复制代码 代码如下: "执行方法：直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径" "利用Vbs脚本实现 显示系统服务里表 "Creator ： Eric1991 Date: 2013-11-1 0:25 strComputer = "." Set objWMIService = GetObject（"winmgmts:" & "\" & strComputer & " ootcimv2"） Set colSer...

VBS获取文件MD5值（无组件）

2017年02月06日 204 阅读

下面这个代码不需要组件一样可以获取MD5值。复制代码 代码如下:Option ExplicitDim wiDim fileDim file_sizeDim file_attributesDim file_versionDim file_hashSet wi = CreateObject（"WindowsInstaller.Installer"）file = "111.exe"file_size = wi.FileSize（file）file_attribu...

VBS调用Photoshop批量生成缩略图的代码

2017年02月06日 203 阅读

模仿腾讯新闻页，给KingCms添加了新闻页图片点播的代码，代码要求的图片点播格式如下：0###http://www.website.org/UploadFile/123.jpg@@@/small/123.gif@@@8标题一***http://www.website.org/UploadFile/456.jpg@@@/small/456.gif@@@标题二***http://www.website.org/UploadFile/789.jpg@@@/sm...

使用vbs获得外网ip并发送到邮箱里

2017年02月06日 184 阅读

获得本地外网地址并发送到指定邮箱，还可以参考这个文章http://www.jb51.net/article/40064.htm复制代码 代码如下:"* **************************************** * "* 程序名称：GetIP.vbs "* 程序说明：获得本地外网地址并发送到指定邮箱 "* 编码：lyserver "* **************************************** * Option ...

vbs实现只复制比目标文件更新的文件

2017年02月06日 159 阅读

因为网站需要频繁的更新首页，有时候使用cdn经常导致首页正在生成内容的时候同步数据（可能是冲突，经常导致首页是空的），这就想了先生成一个不是首页的index2.htm然后再复制一遍为index.htm，这样index2的频繁读写也没问题了。所以先判断index2.htm不是空的时候才复制，而且必须是比index.htm更新的时候才复制。这样就需要一些脚本的支持了。前几天写了一个（bat+xcopy实现只复制比目标文件更新的文件）还是出现为空的情况，这里特加...

vbs复制文件夹的实现代码

2017年02月06日 187 阅读

需要实现一个复制文件夹的功能，网上找到相关代码，并做了改进，vbs脚本如下复制代码 代码如下:Dim fso, CopyCountSet fso = CreateObject（"Scripting.FileSystemObject"）CopyCount = CopyCount + XCopy（fso, ".1", ".2", True）MsgBox "拷贝了" & CopyCount & "个文件！""***************************...

VBS文本文件操作实现代码

2017年02月06日 207 阅读

对于文件的操作，例如：生成一个或者打开一个或者删除一个.txt格式文件。虽然官方的FILE插件提供了一些基本功能，但功能不多。你并不需要理解什么是fso模版，什么是vbs语句，直接套用下面的语句吧！红色字为自己定义的部分，蓝色字为任意选一部分如果你看不懂，请参考下面的例子！操作同一个文件红色部分必须相同请认真看括号内的解释内容定义一个名为fso的关系文件问题的对象，对于一个文件的操作只需写一次，此句必须写VBS Set fso = CreateObject...

获得文件夹大小的VBS代码

2017年02月06日 140 阅读

复制代码 代码如下:"----------------------"获得文件夹的大小"Author = baiyang"Version = 1.0"Date = 09.08.08"----------------------Option ExplicitOn Error Resume NextDim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess"判断是不是没有路径参数If ...

vbs重启TP-Link路由器示例

2017年02月06日 132 阅读

分享一个自己用的小工具，重启TP-Link路由器的，好像还是大学时候写的，献丑了。 其他路由器可能有些不同，但是思路都是差不多的。复制代码 代码如下:user = "admin" "路由器帐号pass = "admin" "路由器密码With CreateObject（"Msxml2.ServerXMLHTTP"） .open "GET", "http://192.168.1.1/userRpm/SysRebootRpm.htm？Reboot=重启路由器"...

vbscript Split函数用法详解（字符串转数组函数）

2017年02月06日 133 阅读

vbscript Split 函数用法用法：传回数组 = Split（原始字串, 要找的字串, 拆成几个数组） 描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split（expression[, delimiter[, count[, compare]]]）例如用逗号（,）分割字符串为数组复制代码 代码如下:str="1,2,3,4"strarr=split（str,","）for i=0 to ubound（strarr）msgbox...

vbs 查找硬盘分区中指定扩展名文件的实现代码

2017年02月06日 193 阅读

挺实用的一段代码，用来深入学习vbs，确实不错咯。复制代码 代码如下:On Error Resume Next "忽略所有错误Dim filename "声明变量Dim reSet re=New RegExp "建立正则表达式对象实例re.Pattern="^（[a-z]|[A-Z]）+:\w+.vbs$"If re.Test（WScript.ScriptFullName）=False ThenMsgBox "请在磁盘根目录下运行本程序，否则搜索结果可能会...

vbs Size 属性使用介绍（获取文件大小）

2017年02月06日 177 阅读

为大家介绍vbs属性之size属性，供大家学习参考。Size 属性对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数。方便我们判断文件的大小。说明object.Sizeobject 应为 File 或 Folder 对象的名称。Folder 对象的 Size 属性示例：复制代码 代码如下:Function ShowFolderSize（filespec） Dim fso, f, s Set fso = CreateObje...

vbs获取当前路径的代码

2017年02月06日 281 阅读

CMD当前路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.PathWscript.echo test 当前VBS路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.PathWscript.ec...

vbs获取当前时间日期的代码

2017年02月06日 236 阅读

获取当前日期方法一：复制代码 代码如下:Currentdate1=date（）msgbox Currentdate1获取当前日期方法二：复制代码 代码如下:Currentdate2=year（Now）&"-"&Month（Now）&"-"&day（Now）msgbox Currentdate2获取当前时间：复制代码 代码如下:CurrentTime=Hour（Now）&":"&Minute（Now）&":"&Second（Now）m = "当前时间"& C...

使用VBS获取当前日期的前一天 并修正输出格式

2017年02月06日 207 阅读

获取当前日期方法一：复制代码 代码如下:Currentdate1=date（）msgbox Currentdate1获取当前日期方法二：复制代码 代码如下:Currentdate2=year（Now）&"-"&Month（Now）&"-"&day（Now）msgbox Currentdate2补充一个：如果想获取的日期前面是1位数的前面补0的写法，例如 2016年5月16，如果目录是2016516不如20160516更好复制代码 代码如下:ystr=yea...