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

缺口

我现在设法获取了所有隐藏的文件夹,唯一的问题是将有关它的所有信息存储到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

谢谢您的时间。

缺口

这是我找到的解决方案。可能会在将来帮助某人

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

AppleScript:如何获取文件夹中没有隐藏文件的文件?

使用opencv裁剪图片中的多个面孔并将其存储在文件夹中

Gitkraken:隐藏文件夹中的所有分支

克隆git存储库,并将所有者包含在文件夹结构中

如何在所有子目录中查找文件并将其复制?

如何将所有者更改为文件夹中的当前用户,并将其包含在主目录中?

获取文件夹中特定文件的目录并将其保存到变量中

使用VBA在文件夹中的所有文档中查找和替换MS Word文本

查找比在目录中创建其父文件夹更早的文件并将其移动到该目录中

删除文件夹中的隐藏文件

Qt:在getSaveFileName中隐藏文件夹

如何编写批处理文件以裁剪目录中的所有pdf文件并将其存储在新目录中?

遍历linux / android中目录中的所有文件(包括以'。'开头的文件-隐藏文件)

是否可以从本地存储数据生成文本或xml文件并将其保存在文件夹中?

如何通过使用终端或脚本隐藏文件夹中的所有文件

rsync中的include =“ *”是否复制所有子目录中的所有隐藏文件?

查找目录中具有相同内容的所有文件夹

删除主目录中的每个隐藏文件夹是否安全?

PowerShell脚本从隐藏文件夹中删除文件

如何在GitHub存储库中删除黑色隐藏文件夹

读取文件夹中的所有xml文件并将其保存在数据表中

在所有目录中查找zip文件,但排除某些文件夹

如何删除目录中除最新的 10 个隐藏文件夹之外的所有文件夹

使用名称中包含空格的隐藏文件和文件\文件夹

如何使用 codeigniter 生成具有相同代码的 HTML 文件并将其保存到特定文件夹中

抓取目录中的所有文件夹和文件

.gitignore 中的隐藏文件夹

如何使用 Python 读取文件夹中的所有 .txt 文件并将其内容附加到一个 .txt 文件中?

如何从链接中隐藏文件夹名称