[[wiki]wiki[/wiki]][/wiki]分别为：海洋 HYTOP.mdb，aspadmin packet.mdb，天使打包 mc.mdb 的解包工具以后有再加 使用方法：加压缩包内相对应的.vbs文件和下载下来的包.mdb文件放同一目录直接运行双击运行.vbs文件即可
引用:
把代码保存为.vbs文件进行解压 把要解压的文件放在相应的 路径下 路径在代码里可以改!
引用:
Dim rs, ws, fso, conn, stream, connStr, theFolder Set rs = Create[wiki]object[/wiki]("ADODB.RecordSet") Set stream = Createobject("ADODB.Stream") Set conn = Createobject("ADODB.Connection") Set fso = Createobject("Scripting.FileSystemobject") c conn.Open connStr rs.Open "FileData", conn, 1, 1 stream.Open stream.[wiki]type[/wiki] = 1 On Error Resume Next Do Until rs.Eof theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\")) If fso.FolderExists(theFolder) = False Then createFolder(theFolder) End If stream.SetEos() stream.Write rs("fileContent") stream.SaveToFile str & rs("thePath"), 2 rs.MoveNext Loop rs.Close conn.Close stream.Close Set ws = Nothing Set rs = Nothing Set stream = Nothing Set conn = Nothing Wscript.Echo "所有文件释放完毕!" Sub createFolder(thePath) Dim i i = Instr(thePath, "\") Do While i > 0 If fso.FolderExists(Left(thePath, i)) = False Then fso.CreateFolder(Left(thePath, i - 1)) End If If InStr(Mid(thePath, i + 1), "\") Then i = i + Instr(Mid(thePath, i + 1), "\") Else i = 0 End If Loop End Sub
