昨日、時代遅れの友人がそれをくれました。Web サイトのすべてのファイルと写真はバイナリ形式でデータベースに保存されます。次のコードを使用して、データベース内のファイルと写真を復元できます。
取得したデータベース名をToMdb.mdbに変更し、以下のコードをVBS形式で保存します。同じディレクトリに配置し、この VBS ファイルを実行します
Dim rs、ws、fso、conn、stream、connStr、theFolder
Set rs = CreateObject("ADODB.RecordSet")
ストリーム = CreateObject("ADODB.Stream") を設定します。
set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
connStr = "プロバイダー=Microsoft.Jet.OLEDB.4.0;データ ソース=ToMdb.mdb;"
conn.Open connStr
rs.「wz」を開く、conn、1、1
ストリーム.オープン
stream.Type = 1
エラー発生時再開
rs.Eof まで次の実行
thePath = rs("フォルダー") & ""
theFolder = Left(thePath, InStrRev(thePath, ""))
fso.FolderExists(theFolder) = False の場合
createFolder(フォルダ)
終了の場合
stream.SetEos()
stream.Write rs("body")
stream.SaveToFile str & thepath & rs("file"), 2
rs.次へ移動
Looprs.Close
接続閉じる
ストリーム.クローズ
ws = なしを設定します
Setrs=なし
ストリームを何も設定しない
Set conn = Nothing
Wscript.Echo "すべてのファイルが解放されました!"
Sub createFolder(thePath)
ディム・アイ
i = Instr(パス, "")
i > 0 の間実行する
fso.FolderExists(Left(thePath, i)) = False の場合
fso.CreateFolder(Left(thePath, i - 1))
終了の場合
If InStr(Mid(thePath, i + 1), "") then
i = i + Instr(Mid(thePath, i + 1), "")
それ以外
i = 0
終了の場合
ループ
エンドサブ