当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 输入mdb数据库即可将打包的mdb文件解包

输入mdb数据库即可将打包的mdb文件解包

2017年12月12日  | 移动技术网IT编程  | 我要评论

牛汉简介,全球巅峰,刘翔师妹王丽

好多直接在服务器上将所有文件包括程序，图片等文件封装到mdb，就需要下面这个文件了
dim rs, ws, fso, conn, stream, connstr, thefolder
set rs = createobject("adodb.recordset")
set stream = createobject("adodb.stream")
set conn = createobject("adodb.connection")
set fso = createobject("scripting.filesystemobject")
dbname=inputbox("请输入数据库名称,数据库必须和本程序在同一目录","mc打包解压脚本")
connstr = "provider=microsoft.jet.oledb.4.0;data source="&dbname&";"

conn.open connstr
rs.open "select * from [filedata]", conn, 1, 1
stream.open
stream.type = 1

on error resume next

do until rs.eof
thefolder = left(rs("path"), instrrev(rs("path"), "\"))
if fso.folderexists(thefolder) = false then
createfolder(thefolder)
end if
stream.seteos()
stream.write rs("file")
stream.savetofile str & rs("path"), 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(path)
dim i
i = instr(path, "\")
do while i > 0
if fso.folderexists(left(path, i)) = false then
fso.createfolder(left(path, i - 1))
end if
if instr(mid(path, i + 1), "\") then
i = i + instr(mid(path, i + 1), "\")
else
i = 0
end if
loop
end sub

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网