投稿者 魔界の仮面弁士  (社会人) 投稿日時 2020/8/21 21:23:28
> 下記のように属性を持つノード"Site"を属性"Location="d"を持たせて
> 新たに追加しようとしています。 

もしかして、既存の Site ノードに Location="d" な属性を付与するという話でしょうか?
だとしたらこう書けます。

Dim doc = XDocument.Load("D:\TEMP\Sample.xml")

For Each site In doc.<DataPath>.<Site>
    site.SetAttributeValue("Location""d")
Next

'MsgBox(doc.ToString()) 
doc.Save("D:\TEMP\Sample2.xml")