好多直接在服务器上将所有文件包括程序，图片等文件封装到mdb，就需要下面这个文件了

Dimrs,ws,fso,conn,stream,connStr,theFolder

Setrs=CreateObject("ADODB.RecordSet")

Setstream=CreateObject("ADODB.Stream")

Setconn=CreateObject("ADODB.Connection")

Setfso=CreateObject("Scripting.FileSystemObject")

dbname=inputbox("请输入数据库名称,数据库必须和本程序在同一目录","mc打包解压脚本")

connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbname&";"

conn.OpenconnStr

rs.Open"select*from[filedata]",conn,1,1

stream.Open

stream.Type=1

OnErrorResumeNext

DoUntilrs.Eof

theFolder=Left(rs("path"),InStrRev(rs("path"),""))

Iffso.FolderExists(theFolder)=FalseThen

createFolder(theFolder)

EndIf

stream.SetEos()

stream.Writers("file")

stream.SaveToFilestr&rs("path"),2

rs.MoveNext

Loop

rs.Close

conn.Close

stream.Close

Setws=Nothing

Setrs=Nothing

Setstream=Nothing

Setconn=Nothing

Wscript.Echo"所有文件释放完毕!"

SubcreateFolder(path)

Dimi

i=Instr(path,"")

DoWhilei>0

Iffso.FolderExists(Left(path,i))=FalseThen

fso.CreateFolder(Left(path,i-1))

EndIf

IfInStr(Mid(path,i+1),"")Then

i=i+Instr(Mid(path,i+1),"")

Else

i=0

EndIf

Loop

EndSub