FSO+递归生成文件列表(xml)

封面图 • 2025-10-05 • asp

你提到的“FSO+递归生成文件列表（XML）”可能是指使用 **File System Object (FSO)** 在 **VBScript** 中递归遍历目录，并将结果以 XML 格式输出。下面是一个完整的示例，展示如何使用 VBScript 的 FSO 来实现这个功能。

---

## ✅ 功能说明

- 使用 `FileSystemObject` 遍历指定目录及其子目录。
- 递归收集所有文件和文件夹。
- 将结果写入 XML 文件中。

---

## 📜 示例代码（VBScript）

```vbscript
' 创建 FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' 定义根目录和输出文件路径
rootFolder = "C:\Your\Root\Folder" ' 替换为你的目标路径
outputFile = "C:\filelist.xml"

' 创建 XML 文档
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.LoadXML("<root></root>")

' 获取根文件夹对象
Set root = fso.GetFolder(rootFolder)

' 调用递归函数
Call TraverseFolder(root, xmlDoc.DocumentElement)

' 保存 XML 文件
xmlDoc.Save outputFile

MsgBox "文件列表已生成到: " & outputFile

Sub TraverseFolder(folder, parentElement)
    Dim subFolder, file

' 添加当前文件夹信息
    Set newFolderNode = xmlDoc.createElement("folder")
    newFolderNode.Text = folder.Name
    parentElement.appendChild newFolderNode

' 添加文件夹路径属性（可选）
    newFolderNode.setAttribute "path", folder.Path

' 遍历子文件夹
    For Each subFolder In folder.SubFolders
        Call TraverseFolder(subFolder, newFolderNode)
    Next

' 遍历文件
    For Each file In folder.Files
        Set newFileNode = xmlDoc.createElement("file")
        newFileNode.Text = file.Name
        newFileNode.setAttribute "path", file.Path
        newFileNode.setAttribute "size", file.Size
        newFileNode.setAttribute "date", file.DateLastModified
        parentElement.appendChild newFileNode
    Next
End Sub
```

---

## 🧾 输出示例（XML）

```xml
<root>
  <folder path="C:\Your\Root\Folder">
    <folder path="C:\Your\Root\Folder\SubFolder1">
      <file path="C:\Your\Root\Folder\SubFolder1\file1.txt" size="1234" date="2025-04-05 10:00:00" />
    </folder>
    <file path="C:\Your\Root\Folder\file2.txt" size="5678" date="2025-04-05 10:01:00" />
  </folder>
</root>
```

---

## 🔧 注意事项

- 确保你有权限访问目标文件夹。
- 如果需要处理非常大的文件系统，建议优化性能或限制递归深度。
- 如果你想在其他语言（如 C#、Python）中实现类似功能，也可以告诉我，我可以提供相应版本的代码。

---

如果你是想用 **C# 或 Python 实现递归生成 XML 文件列表**，我也可以提供相应的代码。欢迎继续提问！