asp源码打包成xml的工具(4)

日期：2020-05-13 栏目：程序人生 浏览：次

For i =0To j 
            If objFSO.FolderExists(strLocalPath & objNodeList(i).text)=FalseThen 
                objFSO.CreateFolder(strLocalPath & objNodeList(i).text) 
EndIf 
            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 =0To 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/>" 
                Response.Flush 
                .Close 
            EndWith 
Set objStream =Nothing 
Next 
Set objNodeList =Nothing 
EndIf 
EndIf 

Set objXmlFile =Nothing 

response.Write "文件解包完毕" 
%> 
</body> 
</html>