Dim swOutput As IO.StreamWriter 　　Try 　　StreamB = New IO.FileStream( _ 　　Server.MapPath("") & "FINAL.xml"， _ 　　IO.FileMode.Create) 　　Catch ex As Exception 　　Throw 　　End Try 　　swOutput = New IO.StreamWriter(StreamB)

　　之后要进入一个十分巧妙的环节――将Stream A的内容导入Stream B.你可以用单个字节或者字节数组来将数据导入或取出数据流。需要注意的是StreamReader有些例外，它用的是char数据，而不是字节数据。

　　调用你之前写好的GetDTD函数，它将返回作为FileStream的DTD文件。然后建立一个和DTD stream同等长度的字节数组，将stream读取到字节数组中，最后关闭它――因为你不再需要用到它了。现在所有的东西都被包含到字节数组中了： dim StreamA as IO.FileStream

　

StreamA = GetDTD() 　　Dim bytearray(StreamA.Length) As Byte 　　StreamA.Read(bytearray， 0， StreamA.Length) 　　StreamA.Close()

　　接下来，将数据从DTD文件中取出并放入已经被创建好成为最终输出文件的数据流中。你可以通过从数组中取出然后放入FileStream来实现这一点。取出数组中所有项目(除最后一项外)以便去掉文件中最后的字符： StreamB.Write(bytearray， 0， bytearray.Length - 1)

　　现在你就可以将DataSet中的数据导入文件中了。DataSet中的WriteXML方法有许多覆盖方法，比如写入一个真实的文件中。此时你可以用将输出文件导入一个FileStream (Stream B)的覆盖方法： myDataSet.WriteXml(StreamB)

　　不要忘记关闭文件数据流： StreamB.Close

　　一旦关闭了Stream B，你便可以从文件系统中访问最新的Final.xml文件了。你还可以将这种方法用到其他类型的文本文件中。