主頁 > 知識(shí)庫 > 輸入mdb數(shù)據(jù)庫即可將打包的mdb文件解包

輸入mdb數(shù)據(jù)庫即可將打包的mdb文件解包
熱門標(biāo)簽：上海辦理400電話選號(hào) 外呼系統(tǒng)群 智云億呼電話機(jī)器人 機(jī)器人打電銷適用于美業(yè)嗎 企業(yè)400電話辦理價(jià)錢低 外呼系統(tǒng)說話聲音小怎么辦 墨西哥地圖標(biāo)注app 龍巖400電話申請(qǐng) 天津智能外呼系統(tǒng)排名
好多直接在服務(wù)器上將所有文件包括程序，圖片等文件封裝到mdb，就需要下面這個(gè)文件了
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("請(qǐng)輸入數(shù)據(jù)庫名稱,數(shù)據(jù)庫必須和本程序在同一目錄","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

標(biāo)簽：鄂爾多斯 阜新 青島 麗水 齊齊哈爾 承德 黃山 錫林郭勒盟

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《輸入mdb數(shù)據(jù)庫即可將打包的mdb文件解包》，本文關(guān)鍵詞  輸入,mdb,數(shù)據(jù)庫,即,可將,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《輸入mdb數(shù)據(jù)庫即可將打包的mdb文件解包》相關(guān)的同類信息！
  • 本頁收集關(guān)于輸入mdb數(shù)據(jù)庫即可將打包的mdb文件解包的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章