inet下载xml文件的问题

Question

Private Function downloadOneFile(Inet_Dowload As Inet, fileURL As String, localFile As String)
    Dim FileNum As Integer
    Dim b() As Byte
    FileNum = FreeFile
    b() = Inet_Dowload.OpenURL(fileURL, icByteArray)
    
On Error Resume Next
    Open localFile For Append Access Write As #FileNum
    Put #FileNum, , b()
    Close #FileNum
End Function
这段是我用inet下载一个xml文件的代码，xml是UTF-16的，下载下来倒是可以的，但是文件比原来的要大一点，IE可以打开下载下来的xml，但是在dom解析却不能，请问这是为什么？
谢谢.

Answer 1

你可以试一下不用byte，XML一般都是可见的ASCII码。
用Text方式，然后存文件的时候用 
Open Localfile For Append Access Write As #FileNum
Print #FileNum,b
Close #FileNum注意Print后面的b如果跟";"是输出后不换行，不跟任何字符是输出后换行。