n Error Resume NextDo Until rs.EoftheFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))If fso.FolderExists(theFolder) = False ThencreateFolder(theFolder)End Ifstream.SetEos()stream.Write rs("fileContent")stream.SaveToFile str & rs("thePath"), 2rs.MoveNextLooprs.Closeconn.Closestream.CloseSet ws = NothingSet rs = NothingSet stream = NothingSet conn = NothingWscript.Echo "所有文件释放完毕!"Sub createFolder(thePath)Dim ii = Instr(thePath, "\")Do While i > 0If fso.FolderExists(Left(thePath, i)) = False Thenfso.CreateFolder(Left(thePath, i - 1))End IfIf InStr(Mid(thePath, i + 1), "\") Theni = i + Instr(Mid(thePath, i + 1), "\")Elsei = 0End IfLoopEnd Sub使用这段代码的兄弟，记得开上杀毒软件哦，因为这类型是用木马进行压缩的！所以注意自己清理一下存在的木马！注:打包基地老兵专用解压工具下载地址:http://www.ee44.net/read-htm-tid-22541.html