Do
' Pfad für XML Files
Dim strXMLFile As String() = System.IO.Directory.GetFiles("D:\crmimport")
 
' Files auslesen
For Each file As String In strXMLFile
 
' XmlReader für das Auslesen der XML-Datei 
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(file)

Do
' Pfad für XML Files
Dim strXMLFile As String() = System.IO.Directory.GetFiles("D:\crmimport")
 
' Files auslesen
For Each file As String In strXMLFile
System.IO.File.Copy(file, "D:\crmimport2\input.xml", True)
 
' XmlReader für das Auslesen der XML-Datei 
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader( _
  "D:\crmimport2\input.xml")