当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 输入mdb数据库即可将打包的mdb文件解包

VBScript
VBS教程：对象-正则表达式(RegExp)对象
VBS教程：对象-Matches 集合
VBS教程：对象-Match 对象
VBS教程：对象-Err
VBS教程：对象-Class 对象
VBS教程：VBScript 对象
VBS教程：字符集 (0 - 127)
VBS教程：方法-Test 方法
VBS教程：方法-Replace 方法
VBS教程：方法-Raise 方法
VBS教程：方法-Execute 方法
VBS教程：方法-Clear 方法
VBS教程：函数-Year 函数
VBS教程：函数-WeekDayName 函数
VBS教程：函数-Weekday 函数
VBS教程：函数-VarType 函数
VBS教程：函数-UCase 函数
VBS教程：函数-UBound 函数
VBS教程：函数-TypeName 函数
VBS教程：函数-TimeValue

No. « 9 10 11 12 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 83 ::
收藏到网摘: n/a

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