Gestern hat es mir ein Freund gegeben, der im Rückstand war. Alle Dateien und Bilder einer Website werden in binärer Form in die Datenbank eingefügt. Sie können den folgenden Code verwenden, um die Dateien und Bilder in der Datenbank wiederherzustellen.
Ändern Sie den erhaltenen Datenbanknamen in ToMdb.mdb und speichern Sie dann den folgenden Code im VBS-Format. Platzieren Sie es im selben Verzeichnis und führen Sie diese VBS-Datei aus.
Dim rs, ws, fso, conn, stream, connStr, theFolder
Setze rs = CreateObject("ADODB.RecordSet")
Setze stream = CreateObject("ADODB.Stream")
Setze conn = CreateObject("ADODB.Connection")
Setze fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ToMdb.mdb;
"
rs.Open „wz“, conn, 1, 1
stream.Öffnen
stream.Type = 1
Bei Fehler Fortsetzen Nächster Vorgang
Bis rs.Eof
thePath = rs("folder") & ""
theFolder = Left(thePath, InStrRev(thePath, ""))
Wenn fso.FolderExists(theFolder) = False, dann
createFolder(theFolder)
Ende wenn
stream.SetEos()
stream.Write rs("body")
stream.SaveToFile str & thepath & rs("file"), 2
rs.MoveNext
Looprs.Close
conn.Schließen
stream.Schließen
Setze ws = Nichts
Setrs=Nichts
Stream = Nichts festlegen
Set conn = Nothing
Wscript.Echo „Alle Dateien wurden freigegeben!“
Sub createFolder(thePath)
Dim ich
i = Instr(thePath, "")
Do While i > 0
Wenn fso.FolderExists(Left(thePath, i)) = False Dann
fso.CreateFolder(Left(thePath, i - 1))
Ende wenn
Wenn InStr(Mid(thePath, i + 1), "") Dann
i = i + Instr(Mid(thePath, i + 1), "")
Anders
ich = 0
Ende wenn
Schleife
Sub beenden