Сохранить результаты GetResponse для файла XML

Question

Я успешно подключился к службе, используя следующий код, но мне нужно сохранить ответ на файл XML results.xml.

Dim xml As New System.Xml.XmlDocument() 

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


    Dim req = WebRequest.Create("????") 
    req.Method = "POST" 
    req.ContentType = "application/xml" 

    Using ms = New MemoryStream() 
     xml.Save(ms) 
     req.ContentLength = ms.Length 
     ms.WriteTo(req.GetRequestStream()) 
    End Using 

    Dim results As XmlReader = XmlTextReader.Create(req.GetResponse().GetResponseStream) 

    Dim settings As New XmlWriterSettings() 
    settings.Indent = True 
    settings.IndentChars = vbTab 
    Dim writer As XmlWriter = XmlWriter.Create("c:\results.xml", settings) 
    writer.WriteNode(results, False) 

Код запускается, но только создает пустой файл. Любая помощь будет с благодарностью оценена.

Answer 1

Добавить еще один параметр:

settings.CloseOutput = True 

Также вы пропустили в конце?

writer.WriteEndDocument() 
writer.Flush() 
writer.Close()