Ayer, un amigo que estaba atrasado me lo dio. Todos los archivos e imágenes de un sitio web se colocan en la base de datos en forma binaria. Puede utilizar el siguiente código para restaurar los archivos e imágenes en la base de datos.
Cambie el nombre de la base de datos obtenida a ToMdb.mdb y luego guarde el siguiente código en formato VBS. Colóquelo en el mismo directorio y ejecute este archivo VBS
Dim rs, ws, fso, conn, stream, connStr, theFolder
Establecer rs = CreateObject("ADODB.RecordSet")
Establecer flujo = CreateObject ("ADODB.Stream")
Establecer conexión = CreateObject("ADODB.Connection")
Establecer fso = CreateObject("Scripting.FileSystemObject")
connStr = "Proveedor=Microsoft.Jet.OLEDB.4.0;Fuente de datos=ToMdb.mdb;
"
rs.Abrir "wz", conn, 1, 1
corriente.Abrir
stream.Type = 1
En caso de error Reanudar Siguiente
Hacer hasta rs.Eof
thePath = rs("carpeta") & ""
laCarpeta = Izquierda(laRuta, InStrRev(laRuta, ""))
Si fso.FolderExists(theFolder) = False Entonces
crearCarpeta(laCarpeta)
Terminar si
corriente.SetEos()
flujo.Escribir rs("cuerpo")
stream.SaveToFile str & thepath & rs("archivo"), 2
rs.MoverSiguiente
Looprs.Cerrar
conexión.Cerrar
flujo.Cerrar
Establecer ws = Nada
Configurar=Nada
Establecer transmisión = Nada
Set conn = Nothing
Wscript.Echo "¡Todos los archivos han sido liberados!"
Sub createFolder(thePath)
Yo tenue
i = Instr(laRuta, "")
Hacer mientras i > 0
Si fso.FolderExists(Left(thePath, i)) = False Entonces
fso.CreateFolder(Izquierda(laRuta, i - 1))
Terminar si
Si InStr(Mid(thePath, i + 1), "") Entonces
i = i + Instr(Medio(elCamino, i + 1), "")
Demás
yo = 0
Terminar si
Bucle
Subtítulo final