Update on question: Merge XML Documents

Recently received assistance with VBScript to merge XML documents from a folder into a single, new XML document.

The critical element in that discussion was that I needed to add an element to each node in the new XML document which contains the name of the file that the original node was found in.  Now I have found that occasionally, the original XML file might contain more than one node (order).  But I've found that in these instances, although all of the nodes from the original file are present in the new XML file, only one of them contains the new "FileName" element.

My modifications to Bill Prew's code look like:

Public Sub MergeOrders()
	Dim oFileSys
	Dim oFolder
	Dim aFiles
	Dim file
	Dim xmlPath1
	Dim xmlPath2
	Dim xmldoc1: Set xmldoc1 = CreateObject("MSXML2.DomDocument")
	Dim xmldoc2: Set xmldoc2 = CreateObject("MSXML2.DomDocument")
	Dim Orders
	Dim Order
	Dim NodeToRemove
	Dim strZeroLenFiles
	Dim NodeFileName
	Dim node
	Dim D2 
	
	Set NodeToRemove = xmldoc1.selectNodes("/OperatorName/FileName")
	
	Set oFileSys = WScript.CreateObject("Scripting.FileSystemObject")
	Set oFolder = oFileSys.GetFolder(ftpLocalDir)
	Set aFiles = oFolder.Files
	strZeroLenFiles = ""
	
	For Each file In aFiles

		If file.size = 0 then
		
			if strzerolenfiles <> "" then strZeroLenFiles = strZeroLenFiles & vbCrLf
			strZeroLenFiles = strZeroLenFiles & File.Name
			
		Else 
	
			If len(xmlPath1) = 0 then
				xmlPath1 = oFolder +"\" + file.name
				xmldoc1.async = False
				xmldoc1.load xmlpath1		
				xmldoc1.setProperty "SelectionLanguage", "XPath"
				
				'Note: Dale Fye 2018-06-11
				'Added following 5 lines to add Filename to the Orders node for XML Authentication
				Set NodeFileName = xmldoc1.selectSingleNode("/OperatorName/FileName")
				set Orders = xmldoc1.selectnodes("OperatorName/Order")
				For each Order in Orders
					set Order = Order.appendChild(NodeFileName )
				Next
				'End addition for XML authentication 
				
			Else
				xmlPath2 = oFolder +"\" + file.name 
			End If
			
			If len(xmlPath1) > 0 And len(xmlPath2) > 0 Then

				xmldoc2.async = False
				xmldoc2.load xmlpath2
				
				'Note: Dale Fye 2018-06-11
				'Added following 1 line to add Filename to the Orders node for XML Authentication
				Set NodeFileName = xmldoc2.selectsinglenode("/OperatorName/FileName")
				'End addition of 2018-06-11
				
				set Orders = xmldoc2.selectNodes("/OperatorName/Order")
				'Note: Dale Fye 2018-06-11
				'Added following 3 line to add Filename to the Orders node for XML Authentication
				For each order in orders
					set order = order.appendchild(NodeFileName)
				next
				'End addition of 2018-06-11
				
				For Each Order In Orders
					Set D2 = Order.cloneNode(True)
					xmldoc1.documentElement.appendChild D2
				Next
			End If

		End If 'zero len file
	Next

	For Each node in NodeToRemove
		node.parentNode.removeChild(node)
	Next

	xmldoc1.save mergedFileLocation

End Sub 

Select allOpen in new window

Any help would be greatly appreciated.