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