Ontem, um amigo que estava atrasado me deu. Todos os arquivos e imagens de um site são colocados no banco de dados em formato binário. Você pode usar o código a seguir para restaurar os arquivos e imagens no banco de dados.
Altere o nome do banco de dados obtido para ToMdb.mdb e salve o código a seguir no formato VBS. Coloque-o no mesmo diretório e execute este arquivo VBS
Dim rs, ws, fso, conn, stream, connStr, theFolder
Definir rs = CreateObject("ADODB.RecordSet")
Definir fluxo = CreateObject("ADODB.Stream")
Definir conexão = CreateObject("ADODB.Connection")
Definir fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados=ToMdb.mdb;
"
rs.Abra "wz", conn, 1, 1
fluxo.Abrir
stream.Type = 1
Em caso de erro, retomar próximo
fazer até rs.Eof
thePath = rs("pasta") & ""
theFolder = Left(thePath, InStrRev(thePath, ""))
Se fso.FolderExists(theFolder) = False então
createFolder(aPasta)
Terminar se
stream.SetEos()
stream.Write rs("corpo")
stream.SaveToFile str & thepath & rs("arquivo"), 2
rs.MoveNext
Looprs.Fechar
conexão.Fechar
stream.Fechar
Definir ws = Nada
Setrs=Nada
Definir fluxo = Nada
Set conn = Nothing
Wscript.Echo "Todos os arquivos foram liberados!
"
Escureça eu
i = Instr(oCaminho, "")
Faça enquanto eu> 0
Se fso.FolderExists(Left(thePath, i)) = False Então
fso.CreateFolder(Left(thePath, i - 1))
Terminar se
Se InStr(Mid(thePath, i + 1), "") Então
i = i + Instr(Mid(thePath, i + 1), "")
Outro
eu = 0
Terminar se
Laço
Finalizar sub