어제, 시대에 뒤처진 친구가 나에게 주었다. 웹사이트의 모든 파일과 사진은 바이너리 형식으로 데이터베이스에 저장된다. 다음 코드를 사용하면 데이터베이스의 파일과 사진을 복원할 수 있다.
얻은 데이터베이스 이름을 ToMdb.mdb로 변경한 후 다음 코드를 VBS 형식으로 저장합니다. 동일한 디렉토리에 배치하고 이 VBS 파일을 실행하십시오.
Dim rs, ws, fso, conn, stream, connStr, theFolder
rs = CreateObject("ADODB.RecordSet") 설정
스트림 설정 = CreateObject("ADODB.Stream")
conn = CreateObject("ADODB.Connection") 설정
fso = CreateObject("Scripting.FileSystemObject") 설정
connStr = "공급자=Microsoft.Jet.OLEDB.4.0;데이터 원본=ToMdb.mdb;
"
rs.Open "wz", conn, 1, 1
스트림.열기
stream.Type = 1
rs.Eof까지
다음 작업 재개
thePath = rs("폴더") & ""
theFolder = 왼쪽(thePath, InStrRev(thePath, ""))
fso.FolderExists(theFolder) = False인 경우
폴더 생성(theFolder)
종료 조건
스트림.SetEos()
stream.Write rs("본문")
stream.SaveToFile str & thepath & rs("파일"), 2
rs.이동다음
Looprs.Close
연결.닫기
스트림.닫기
ws = 없음으로 설정
설정자=아무것도 없음
스트림 설정 = 없음
Set conn = Nothing
Wscript.Echo "모든 파일이 릴리스되었습니다!"
Sub createFolder(thePath)
나는 어둡다
i = Instr(thePath, "")
i > 0인 동안 수행
fso.FolderExists(Left(thePath, i)) = False인 경우
fso.CreateFolder(왼쪽(thePath, i - 1))
종료 조건
If InStr(Mid(thePath, i + 1), "") 그러면
i = i + Instr(Mid(thePath, i + 1), "")
또 다른
나는 = 0
종료 조건
고리
서브 끝