Hier, un ami qui était en retard me l'a donné. Tous les fichiers et images d'un site Web sont mis dans la base de données sous forme binaire. Vous pouvez utiliser le code suivant pour restaurer les fichiers et les images de la base de données.
Modifiez le nom de la base de données obtenu en ToMdb.mdb, puis enregistrez le code suivant au format VBS. Placez-le dans le même répertoire et exécutez ce fichier VBS
Dim rs, ws, fso, conn, stream, connStr, theFolder
Définir rs = CreateObject("ADODB.RecordSet")
Définir le flux = CreateObject("ADODB.Stream")
Définir conn = CreateObject("ADODB.Connection")
Définir fso = CreateObject("Scripting.FileSystemObject")
ToMdb.mdb
;"
rs.Open "wz", conn, 1, 1
flux.Ouvrir
stream.Type = 1
En cas d'erreur, reprendre la prochaine
étape jusqu'à rs.Eof
leChemin = rs("dossier") & ""
leDossier = Gauche(leChemin, InStrRev(leChemin, ""))
Si fso.FolderExists(theFolder) = False Alors
créer un dossier (le dossier)
Fin si
flux.SetEos()
stream.Write rs("corps")
stream.SaveToFile str & thepath & rs("file"), 2
rs.MoveNext
Looprs.Fermer
conn.Fermer
stream.Fermer
Définir ws = Rien
Setrs=Rien
Définir le flux = Rien
Set conn = Nothing
Wscript.Echo "Tous les fichiers ont été publiés !"
Sub createFolder(thePath)
Faible je
i = Instr(leChemin, "")
Faire pendant que je > 0
Si fso.FolderExists(Left(thePath, i)) = False Alors
fso.CreateFolder(Gauche(leChemin, i - 1))
Fin si
Si InStr(Mid(thePath, i + 1), "") Alors
i = i + Instr(Mid(leChemin, i + 1), "")
Autre
je = 0
Fin si
Boucle
Fin du sous-marin