gpt4 book ai didi

unpack.vbs

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章unpack.vbs由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. Dim rs, ws, fso, conn, stream, connStr, theFolder 
  2. Set rs = CreateObject("ADODB.RecordSet"
  3. Set stream = CreateObject("ADODB.Stream"
  4. Set conn = CreateObject("ADODB.Connection"
  5. Set fso = CreateObject("Scripting.FileSystemObject"
  6. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HYTop.mdb;" 
  7.  
  8. conn.Open connStr 
  9. rs.Open "FileData", conn, 1, 1 
  10. stream.Open 
  11. stream.Type = 1 
  12.  
  13. On Error Resume Next 
  14.  
  15. Do Until rs.Eof 
  16.  theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\")) 
  17.  If fso.FolderExists(theFolder) = False Then 
  18.   createFolder(theFolder) 
  19.  End If 
  20.  stream.SetEos() 
  21.  stream.Write rs("fileContent"
  22.  stream.SaveToFile str & rs("thePath"), 2 
  23.  rs.MoveNext 
  24. Loop 
  25.  
  26. rs.Close 
  27. conn.Close 
  28. stream.Close 
  29. Set ws = Nothing 
  30. Set rs = Nothing 
  31. Set stream = Nothing 
  32. Set conn = Nothing 
  33.  
  34. Wscript.Echo "所有文件释放完毕!" 
  35.  
  36. Sub createFolder(thePath) 
  37.  Dim i 
  38.  i = Instr(thePath, "\"
  39.  Do While i > 0 
  40.   If fso.FolderExists(Left(thePath, i)) = False Then 
  41.    fso.CreateFolder(Left(thePath, i - 1)) 
  42.   End If 
  43.   If InStr(Mid(thePath, i + 1), "\") Then 
  44.    i = i + Instr(Mid(thePath, i + 1), "\"
  45.    Else 
  46.    i = 0 
  47.   End If 
  48.  Loop 
  49. End Sub 

最后此篇关于unpack.vbs的文章就讲到这里了,如果你想了解更多关于unpack.vbs的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com