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

                        End If
                        Response.Write "创建目录" & objNodeList(i).text & "<br/>"
                        Response.Flush
                    Next
                Set objFSO = nothing
                Set objNodeList = nothing
                Set objNodeList = objXmlFile.documentElement.selectNodes("//file/path")

                    j=objNodeList.length-1
                    For i=0 To j
                        Set objStream = CreateObject("ADODB.Stream")
                            With objStream
                                .Type = 1
                                .Open
                                .Write objNodeList(i).nextSibling.nodeTypedvalue
                                .SaveToFile strLocalPath & objNodeList(i).text,2
                                Response.Write "释放文件" & objNodeList(i).text & "<br/>"