用asp实现把文件打包成Xml文件包，带解包的ASP工(4)

                               Xstream.SetAttribute "xmlns:dt","urn:schemas-microsoft-com:datatypes"
                               '文件内容采用二制方式存放
                               Xstream.dataType = "bin.base64"
                               Xstream.nodeTypedValue = objStream.Read()

                           set objStream=nothing
                           set Xpath = nothing
                           set Xstream = nothing
                           set Xfile = nothing
                          '================================================
                        end if
                    end if
                next
        Response.Write "<p>"
        XmlDoc.Save(Server.Mappath(ZipPathFile))
        set Xfpath = nothing
        set Xfolder = nothing
        set XmlDoc = nothing

        '创建的子文件夹对象
        set objSubFolders=objFolder.Subfolders
            '调用递归遍历子文件夹