VBAコードWQLでディレクトリ内のすべての隠しフォルダを検索し、XMLファイルに

Question

それを格納するために、私は今、すべての隠しフォルダを取得するために管理し、唯一の問題は、XMLファイルにそれに関するすべての情報を格納することです。 誰も私にこれを手伝ってもらえますか？

Dim xdoc 
Function CreateFolders(objFile) 
    Dim elem 
    Dim attr 
    set elem = xdoc.createElement("Folders") 
    set attr = xdoc.createAttribute("Description") 
    attr.value = objFile.Description 
    elem.setAttributeNode attr 
    set CreateFolders = elem 
End Function 

Dim FilePath 

Dim objFile 
Dim root 
Dim elem, elem1 


Set xdoc = CreateObject("MSXML2.DOMDocument.6.0") 
xdoc.appendChild xdoc.createProcessingInstruction  ("xml", "version=""1.0""  encoding=""utf-8""") 
FilePath = "C:\Users\User\Downloads\M.xml" 

set root = xdoc.createElement("Folders") 
xdoc.appendChild root 


strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from Win32_Directory Hidden = True") 
For Each objFile in colFiles 
    Wscript.Echo objFile.Name 
Next 

お時間をありがとうございます。ここで

Answer 1

は、私が見つけたソリューションです。それは将来的に誰かを助けますすることができる

Dim xdoc 
Function CreateFolders(objFile) 
    Dim elem 
    Dim attr 
    set elem = xdoc.createElement("Folder") 
    set attr = xdoc.createAttribute("Description") 
    attr.value = objFile.Description 
    elem.setAttributeNode attr 
    set CreateFolders = elem 
End Function 

Dim FilePath 
Dim objFile 
Dim root 
Dim elem, elem1 


Set xdoc = CreateObject("MSXML2.DOMDocument.6.0") 
xdoc.appendChild xdoc.createProcessingInstruction("xml", "version=""1.0""  encoding=""utf-8""") 
FilePath = "C:\Users\User\Downloads\My.xml" 

set root = xdoc.createElement("Folders") 
xdoc.appendChild root 

Wscript.Echo "Stage 1 Done" 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from Win32_Directory Where Hidden = True") 
Wscript.Echo "Stage 2 Done" 

For Each objFile in colFiles 
set elem = CreateFolders(objFile) 
root.appendChild elem 


Next 
Wscript.Echo "Stage 3 Done" 
xdoc.Save FilePath