vbs 用于查找硬盘所有分区中指定扩展名文件的代码，有需要的朋友可以参考下。挺实用的一段代码，用来深入学习vbs，确实不错

挺实用的一段代码，用来深入学习vbs，确实不错咯。

代码如下:

On Error Resume Next '忽略所有错误

Dim filename '声明变量

Dim re

Set re=New RegExp '建立正则表达式对象实例

re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$"

If re.Test(WScript.ScriptFullName)=False Then

MsgBox "请在磁盘根目录下运行本程序，否则搜索结果可能会不正确！",,"MessageBox"

WScript.Quit

End If

re.Pattern="^([A-Za-z0-9_]|[^\x00-\xff])+\.[a-zA-Z]{1,4}$" '声明正则表达式的匹配模式，主要用来检验用户输入的文件名是否正确

Do

filename=InputBox("请输入你要搜索的文件名：","MessageBox")

If filename="" Then WScript.Quit '如果输入为空则退出脚本

If re.Test(filename)=False Then

MsgBox "请输入合法的文件名！",,"MessageBox"

End If

Loop While re.Test(filename)=False '直到用户输入正确的文件名时才跳出循环。

Set re=Nothing

Dim ie

Set ie=WScript.CreateObject("internetexplorer.application") '建立IE对象，用来显示搜索状态

ie.menubar=0 '不显示IE对象菜单栏

ie.AddressBar=0 '不显示IE对象地址栏

ie.ToolBar=0 '不显示IE对象工具栏

ie.StatusBar=0 '不显示IE对象状态栏

ie.FullScreen=1 '全屏化IE对象

ie.Width=640 '设置IE对象宽度

ie.Height=120 '设置IE对象高度

ie.Resizable=0 '设置IE对象大小是否可以被改动

ie.Navigate "about:blank" '设置IE对象默认指向的页面

ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2) '设置IE对象左边距

ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '设置IE对象右边距

ie.visible=1 '设置IE对象是否可视

With ie.Document '以下为在IE对象中写入页面，跟一般的HTML没有区别

.write ""

.write ""

.write " "

.write ""

.write ""

.write ""

.write ""

.write "

"

.write "

"

.write ""

End With

'定义文件系统对象变量

Dim fso

Dim objfolder

Dim objsubfolders

Dim objsubfolder

Dim objfiles

Dim objfile

Dim objdrives

Dim objdrive

Dim objtextfile

Dim str:str=""

Dim i:i=0 '计数器变量

Dim result

result="E:\搜索结果.html" '搜索结果保存文件变量

'一个过程，用来遍历硬盘文件

Function search(path)

Set objfolder=fso.getfolder(path) '获得当前路径

Set objfiles=objfolder.Files '获得当前路径下的所有文件集合

For Each objfile In objfiles '开始遍历文件集合

ie.Document.getElementById("middle").innerHTML=objfile.Path '用到IE对象的文档对象模型，将当前搜索的文件路径写入ID为middle的DIV中

If objfile.Name=filename Then '如果当前文件名与用户输入的文件名一致

i=i+1 '计数器加一

str=str & objfile.Path & "
"

Set objtextfile=fso.OpenTextFile(result,2,True) '创建文本流对象，文件名为变量result所存储的字符串

objtextfile.Write(str) '将变量str中的文件路径写入html文件中

objtextfile.Close '关闭文本流对象

Set objtextfile=Nothing '销毁对象

End If

If i>0 Then

ie.Document.getElementById("header").innerHTML="找到 " & i & " 个匹配，详细信息已保存在 """ & result & """ 文件中。。。"

Else

ie.Document.getElementById("header").innerHTML="正在执行文件搜索。。。"

End If

WScript.Sleep(20)

Next

Set objsubfolders=objfolder.SubFolders '得到当前路径下的所有文件夹的集合

For Each objsubfolder In objsubfolders '遍历文件夹

nowpath=path & "\" & objsubfolder.Name '得到新的文件路径

search nowpath '调用函数自身，从新的路径开始搜索

Next

End Function

Set fso=CreateObject("scripting.filesystemobject")

Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器

For Each objdrive In objdrives '遍历磁盘

search objdrive '调用函数

Next

'结束时显示的信息

ie.Document.getElementById("header").innerHTML="扫描已结束。。。"

If i>0 Then

ie.Document.getElementById("middle").innerHTML="请打开 """ & result & """ 查看详细搜索结果！"

Else

ie.Document.getElementById("middle").innerHTML="没有找到要搜索的文件！"

End If

'销毁对象变量，释放内存空间

Set objdrives=Nothing

Set objfiles=Nothing

Set objfile=Nothing

Set objdrive=Nothing

Set objfolders=Nothing

Set objfolder=Nothing

Set objsubfolders=Nothing

Set objsubfolder=Nothing

Set fso=Nothing

更多信息请查看IT技术专栏