主頁 > 知識庫 > unpack.vbs

unpack.vbs

熱門標簽:高德百度地圖標注推廣 為什么申請400電話 京東辦理400電話查詢 外呼系統(tǒng)解決電銷問題 菏澤電銷外呼系統(tǒng)軟件 南陽高頻外呼系統(tǒng)怎么安裝 地圖標注店鋪的收費 貴陽電話外呼系統(tǒng)廠家 蘇丹地圖標注app

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")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HYTop.mdb;"

conn.Open connStr
rs.Open "FileData", conn, 1, 1
stream.Open
stream.Type = 1

On Error Resume Next

Do Until rs.Eof
 theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))
 If fso.FolderExists(theFolder) = False Then
  createFolder(theFolder)
 End If
 stream.SetEos()
 stream.Write rs("fileContent")
 stream.SaveToFile str rs("thePath"), 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(thePath)
 Dim i
 i = Instr(thePath, "\")
 Do While i > 0
  If fso.FolderExists(Left(thePath, i)) = False Then
   fso.CreateFolder(Left(thePath, i - 1))
  End If
  If InStr(Mid(thePath, i + 1), "\") Then
   i = i + Instr(Mid(thePath, i + 1), "\")
   Else
   i = 0
  End If
 Loop
End Sub

標簽:通遼 海北 資陽 滄州 咸寧 韶關(guān) 阿里 昌都

巨人網(wǎng)絡(luò)通訊聲明:本文標題《unpack.vbs》,本文關(guān)鍵詞  unpack.vbs,unpack.vbs,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《unpack.vbs》相關(guān)的同類信息!
  • 本頁收集關(guān)于unpack.vbs的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章