手机
当前位置:查字典教程网 >脚本专栏 >vbs >输入mdb数据库即可将打包的mdb文件解包
输入mdb数据库即可将打包的mdb文件解包
摘要:好多直接在服务器上将所有文件包括程序,图片等文件封装到mdb,就需要下面这个文件了Dimrs,ws,fso,conn,stream,conn...

好多直接在服务器上将所有文件包括程序,图片等文件封装到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

【输入mdb数据库即可将打包的mdb文件解包】相关文章:

VBS 强制关闭Symantec Endpoint Protection的代码

用vbs实现在启动 Windows 资源管理器时打开特定文件夹

VBS For Next循环的一些细节

用vbs实现删除名称中有撇号的文件夹

vbs后台运行bat删除自身的代码

VBS利用SendKeys输入中文字符的方法

VBS教程:属性-FreeSpace 属性

vbs adox提取数据库表名和列名的类

打开QQ并且让它自己输入用户名和密码的vbs脚本

用VBS脚本实现更换Windows Xp序列号的代码

精品推荐
分类导航