________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

        Dim vIE As Object
        Dim vXMLFilename As String = ""
        Dim lSearchpattern As New List(Of String)
        Dim vXMLPath As New DirectoryInfo(TextBox2.Text & "\Export\")
        Dim xmlcheck As Boolean = False
        If CheckBox1.Checked Then
 
            lSearchpattern.Add("*.xml")
 
            For Each sFile As FileInfo In searchFiles(vXMLPath, lSearchpattern)
                If Not sFile.Name.StartsWith("_Report", _
                  StringComparison.OrdinalIgnoreCase) Then
                    vXMLFilename = sFile.FullName
                    xmlcheck = True
                End If
            Next
            If xmlcheck = True Then
                vIE = CreateObject("InternetExplorer.Application")
                vIE.Visible = True
 
                'XML jetzt öffnen
                vIE.Navigate2(vXMLFilename)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist