<GPO xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" _
  xmlns:xsd="http://www.w3.org/2001/XMLSchema" _
  xmlns="http://www.microsoft.com/GroupPolicy/Settings">
  <Identifier>
    <Identifier _
      xmlns="http://www.microsoft.com/GroupPolicy/Types">{AE2402B1-E2D3-4511_
      -8679-44982E5EE7F3}</Identifier>
    <Domain xmlns="http://www.microsoft.com/GroupPolicy/Types">domain.net</Domain>
  </Identifier>
  <Name>Policy_Name_001</Name>
  <IncludeComments>true</IncludeComments>
  <CreatedTime>2009-10-08T06:29:52</CreatedTime>
  <ModifiedTime>2009-11-05T15:35:10</ModifiedTime>
  <ReadTime>2011-08-02T07:05:18.5411346Z</ReadTime>
</GPO>

Private Sub merge_policy(ByVal str_Path As String, pol_ID As String, rowIndex _
  As Integer)
 
        Dim str_Identifier As String
        Dim XMLDoc As New XmlDocument
        Dim Knoten As XmlNode
	Dim x as Long
 
       	x = 0
 
        If Not str_Path.EndsWith("\") Then str_Path += "\"
 
        'Hier wird ein Verzeichnis nach allen vorhanden .XML-Datein durchsucht
        For Each sFile In My.Computer.FileSystem.GetFiles( _
        str_Path, FileIO.SearchOption.SearchTopLevelOnly, "*.xml")
 
            XMLDoc.Load(sFile)
 
            Knoten = XMLDoc.SelectSingleNode("/GPO/Identifier")
            'Sprung in den entsprechenden Knoten
            Dim Knotenliste As XmlNodeList = XMLDoc.SelectNodes( _
              "/GPO/Identifier")
 
            For Each Knoten In Knotenliste
                Knoten = Knoten.SelectSingleNode("Identifier")
                str_Identifier = Knoten.InnerText
                'Eintrag in das vorhandene Datagridview
                DataGridView1.Item("GPO-Name", rowIndex).Value = str_Identifier
            Next
 
            x = x + 1
        Next
End Sub

?Ein Haus ohne B?cher ist arm, auch wenn sch?ne Teppiche seinen Boden und kostbare Tapeten und Bilder die W?nde bedecken.? (Hermann Hesse)