Kemarin, seorang teman yang ketinggalan zaman memberikannya kepada saya. Semua file dan gambar dari sebuah website dimasukkan ke dalam database dalam bentuk biner.
Ubah nama database yang diperoleh menjadi ToMdb.mdb, lalu simpan kode berikut ke dalam format VBS. Tempatkan di direktori yang sama dan jalankan file VBS ini
Dim rs, ws, fso, conn, stream, connStr, theFolder
Setel rs = CreateObject("ADODB.RecordSet")
Setel aliran = CreateObject("ADODB.Stream")
Setel samb = CreateObject("ADODB.Connection")
Setel fso = CreateObject("Scripting.FileSystemObject")
connStr = "Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data=ToMdb.mdb;"
samb.Buka sambunganStr
rs.Buka "wz", samb., 1, 1
aliran.Buka
stream.Type = 1
Pada Error Lanjutkan Selanjutnya
Lakukan Hingga rs.Eof
thePath = rs("folder") & ""
theFolder = Kiri(thePath, InStrRev(thePath, ""))
Jika fso.FolderExists(theFolder) = False Maka
buatFolder(Folder)
Akhiri Jika
aliran.SetEos()
stream.Tulis rs("body")
aliran.SaveToFile str & thepath & rs("file"), 2
rs.MoveNext
Looprs.Tutup
samb.Tutup
aliran.Tutup
Tetapkan ws = Tidak ada
Setr=Tidak ada
Setel aliran = Tidak ada
Set conn = Tidak Ada
Wscript.Echo "Semua file telah dirilis!"
Sub createFolder(thePath)
Redupkan saya
i = Instr(Jalur, "")
Lakukan Sementara i > 0
Jika fso.FolderExists(Left(thePath, i)) = False Maka
fso.CreateFolder(Kiri(Jalur, i - 1))
Akhiri Jika
Jika InStr(Mid(thePath, i + 1), "") Lalu
i = i + Instr(Tengah(Jalur, i + 1), "")
Kalau tidak
saya = 0
Akhiri Jika
Lingkaran
Akhiri Sub