VB控制台程序无法正确写入外部驱动器信息至XML文件

我开发的VB控制台程序存在以下异常：

• 未连接外部驱动器时：可正常采集驱动器信息，控制台能显示且成功写入XML文件
• 连接外部驱动器后出现两种异常：
  • 仅写入内置C:\、D:\盘信息，外部驱动器信息未写入XML
  • 连接多个外部驱动器时，XML文件无内容，但控制台能正常显示所有驱动器信息

1. 驱动器类型判断逻辑错误：代码中可能仅对Fixed（内置固定驱动器）类型做了XML写入处理，完全忽略了Removable（外部可移动驱动器）类型，导致外部盘信息不写入；或者多外部盘场景下，类型判断分支触发了错误的跳过逻辑。
2. XML写入时机不合理：如果在遍历单个驱动器后就执行XML保存操作，可能因为外部驱动器读取延迟，后续驱动器的信息还未添加就完成了保存，或者多盘场景下多次保存覆盖了内容。
3. 外部驱动器访问异常未处理：外部驱动器可能存在访问权限限制、读取超时或临时断开的情况，代码中未添加异常捕获，导致单个外部盘的读取错误中断了整个XML写入流程，最终出现空文件；而控制台仅输出盘符等基础信息，不需要读取深层属性，所以能正常显示。
4. XML文档对象管理错误：如果在循环中重复创建XML文档对象，或者未正确维护节点结构，多驱动器场景下会导致之前添加的节点被覆盖或丢失，最终XML文件内容为空。

• 修正驱动器类型判断：检查代码中DriveType的判断条件，确保包含可移动驱动器类型，示例代码：

  ' 正确的类型判断：包含内置固定盘和外部可移动盘
  For Each drive As DriveInfo In DriveInfo.GetDrives()
      If drive.IsReady And (drive.DriveType = DriveType.Fixed Or drive.DriveType = DriveType.Removable) Then
          ' 添加驱动器信息到XML节点的逻辑
      End If
  Next
  

• 调整XML写入时机：确保所有驱动器遍历完成并添加到XML文档后，再执行一次保存操作，避免提前保存或重复覆盖：

  ' 先创建XML文档并添加所有驱动器节点
  Dim xmlDoc As New XmlDocument()
  ' ... 初始化XML结构 ...
  For Each drive As DriveInfo In DriveInfo.GetDrives()
      ' ... 添加当前驱动器的节点到xmlDoc ...
  Next
  ' 所有节点添加完成后再保存
  xmlDoc.Save("DriveInfo.xml")
  

• 添加异常捕获逻辑：在遍历驱动器的代码块中加入Try-Catch，避免单个驱动器的访问错误中断整个流程：

  For Each drive As DriveInfo In DriveInfo.GetDrives()
      Try
          If drive.IsReady Then
              ' 读取驱动器详细信息并添加到XML
          End If
      Catch ex As Exception
          Console.WriteLine($"处理驱动器 {drive.Name} 出错: {ex.Message}")
          Continue For ' 继续处理下一个驱动器
      End Try
  Next
  

• 检查XML对象的生命周期：确保XML文档对象只创建一次，节点添加逻辑正确，不会出现节点覆盖或文档重置的情况。

内容的提问来源于stack exchange，提问作者dpresnell90