Visual Basic

Dim i As Integer
        Dim str As String = ""
        'For i = 0 To XMLDocument.Length
        '    str = str & XMLDocument.ToString(i)
        'Next
        str = System.Text.UnicodeEncoding.ASCII.GetString(XMLDocument)

        Dim fs As New FileStream("c:\text.xml", FileMode.Create, FileAccess.ReadWrite, FileShare.Delete)
        fs.Write(XMLDocument, 0, XMLDocument.Length)
        fs.Close()
        fs.Dispose()

        Dim xml As New XmlDocument
        '' Dim re As StringReader = New StringReader(str)

        xml.Load("c:\text.xml")


        Dim Site As SPWeb = New SPSite(SitePath).OpenWeb()
        Dim tw As SPListItem

        Dim UpdateList As SPList = Site.Lists(ListBoxToUpdate)

        tw = UpdateList.Items.Add()
        Dim newFolder As SPFolder = Site.GetFolder(ListBoxToUpdate)
        Dim destFolder As SPFolder = Site.GetFolder(ListBoxToUpdate)

        Dim spf As SPFileCollection = destFolder.Files

        For Each node As XmlNode In xml.LastChild


            Dim ArrByte As Byte() = System.Text.Encoding.ASCII.GetBytes(node.Attributes(2).Value)
            
            Dim strImageByte As Byte() = ArrByte
            'spf.Add(node.Attributes(0).Value & "." & node.Attributes(1).Value, strImageByte)

            tw.Attachments.Add(node.Attributes(0).Value & "." & node.Attributes(1).Value, strImageByte)
        Next

        Dim Title As String = ""
        'Title = XmlFiles(x).ToString
        'Title = Title.Substring(Title.LastIndexOf("\") + 1, XmlFiles(x).ToString.Length + 2 - Title.LastIndexOf("\"))

        tw("Title") = "ChargeOutInvoiceNotIndexed"
        tw.Update()
        tw = Nothing
        'spf("Title") '= "ChargeOutInvoiceNotIndexed"