50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
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
|