AHK: Сохранение древовидной структуры

#NoEnv
SetBatchLines, -1

CreateXmlFromFolder("D:\Downloads")

CreateXmlFromFolder(folder) {
   xmlDoc := ComObjCreate("Msxml2.DOMDocument.6.0")
   xmlDoc.async := false
   SplitPath, folder, fileName
   xmlDoc.loadXML("<folder name=""" . fileName . """></folder>")
   root := xmlDoc.documentElement
   Parse(xmlDoc, folder, root)
   FormatDocument(xmlDoc)
   xmlDoc.save(A_ScriptDir . "\test.xml")
}

Parse(xmlDoc, folder, node) {
   Loop, files, %folder%\*, D
   {
      newElem := xmlDoc.createElement("folder")
      newNode := node.appendChild(newElem)
      newNode.setAttribute("name", A_LoopFileName)
      Parse(xmlDoc, A_LoopFilePath, newNode)
   }
   Loop, files, %folder%\*, F
   {
      newElem := xmlDoc.createElement("file")
      newNode := node.appendChild(newElem)
      newNode.setAttribute("name", A_LoopFileName)
   }
}

FormatDocument(xmlDoc) {
   xmlReader := ComObjCreate("msxml2.SAXXMLReader.6.0")
   xmlWriter := ComObjCreate("msxml2.MXXMLWriter.6.0")
   xmlWriter.encoding := "UTF-8"
   xmlWriter.byteOrderMark := true
   xmlWriter.disableOutputEscaping := false
   xmlWriter.omitXMLDeclaration := false
   xmlWriter.indent := true
   xmlReader.contentHandler  := xmlWriter
   xmlReader.dtdHandler      := xmlWriter
   xmlReader.errorHandler    := xmlWriter
   xmlReader.putProperty("http://xml.org/sax/properties/lexical-handler", xmlWriter)
   xmlReader.putProperty("http://xml.org/sax/properties/declaration-handler", xmlWriter)
   xmlReader.parse(xmlDoc)
   xmlDoc.loadXML(xmlWriter.output)
}