使用WQL查找目录中所有隐藏文件夹并将其存储在xml文件中的VBA代码

Sub FindHiddenFolders()
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim xmlDoc As Object
    Dim xmlRoot As Object
    Dim xmlNode As Object
    Dim xmlAttr As Object
    Dim xmlText As Object
    Dim folderPath As String
    Dim xmlFilePath As String
    
    ' 设置目录路径和xml文件路径
    folderPath = "C:\Path\To\Directory"
    xmlFilePath = "C:\Path\To\Output.xml"
    
    ' 创建XML文档对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    Set xmlRoot = xmlDoc.createElement("HiddenFolders")
    xmlDoc.appendChild xmlRoot
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 连接WMI服务
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    
    ' 查询目录中的所有文件夹
    Set objFolder = objFSO.GetFolder(folderPath)
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Directory WHERE Name='" & objFolder.Path & "'")
    
    ' 遍历文件夹
    For Each objItem In colItems
        ' 检查文件夹是否隐藏
        If objItem.Attributes And 2 Then
            ' 创建XML节点
            Set xmlNode = xmlDoc.createElement("Folder")
            
            ' 添加文件夹路径属性
            Set xmlAttr = xmlDoc.createAttribute("Path")
            xmlAttr.Value = objItem.Name
            xmlNode.setAttributeNode xmlAttr
            
            ' 添加文件夹名称属性
            Set xmlAttr = xmlDoc.createAttribute("Name")
            xmlAttr.Value = objItem.FileName
            xmlNode.setAttributeNode xmlAttr
            
            ' 添加文件夹大小属性
            Set xmlAttr = xmlDoc.createAttribute("Size")
            xmlAttr.Value = objItem.FileSize
            xmlNode.setAttributeNode xmlAttr
            
            ' 添加文件夹创建时间属性
            Set xmlAttr = xmlDoc.createAttribute("Created")
            xmlAttr.Value = objItem.CreationDate
            xmlNode.setAttributeNode xmlAttr
            
            ' 添加文件夹修改时间属性
            Set xmlAttr = xmlDoc.createAttribute("Modified")
            xmlAttr.Value = objItem.LastModified
            xmlNode.setAttributeNode xmlAttr
            
            ' 添加文件夹访问时间属性
            Set xmlAttr = xmlDoc.createAttribute("Accessed")
            xmlAttr.Value = objItem.LastAccessed
            xmlNode.setAttributeNode xmlAttr
            
            ' 添加文件夹属性节点到根节点
            xmlRoot.appendChild xmlNode
        End If
    Next objItem
    
    ' 保存XML文档到文件
    xmlDoc.Save xmlFilePath
    
    ' 释放对象
    Set xmlText = Nothing
    Set xmlAttr = Nothing
    Set xmlNode = Nothing
    Set xmlRoot = Nothing
    Set xmlDoc = Nothing
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    Set colItems = Nothing
    Set objWMIService = Nothing
    
    MsgBox "Hidden folders have been saved to " & xmlFilePath
End Sub