asp : 압축파일 사용법(빵집 스크립트)

asp : 압축파일 사용법(빵집 스크립트)

ASP에서 빵집 스크립트를 호출해 압축을 푸는 풀 소스입니다. 추가해 서버에 올라간 압축 파일과 스크립트 파일을 압축을 풀고 난 후에 삭제하는 것까지 만들어 봤습니다.

물론 빵집으로 했습니다.

Set SH = Server.CreateObject("wscript.shell")
Set fs = server.createobject("Scripting.FileSystemObject")

Dim SID

'스크립트 파일이 중복이 발생할 경우를 배제하기 위해 SessionId로 파일명을 사용
SID = Session.sessionId

fs.CreateTextFile "C:\폴더\" & SID & ".bzs", true
Set objFile = fs.opentextfile("C:\폴더\" & SID & ".bzs", 8)
objFile.WriteLine(";BreadZip Script Version 1")
objFile.WriteLine("Mode=Extract")
objFile.WriteLine("ArchiveFile=" & 경로 및 파일이름)
objFile.WriteLine("Extract.Path=" & 압축풀 경로)

'ASP 파일은 Windows에서 실행을 하게 되면 소스만 보이고 정작 원하는 작업은
'되지 않습니다. VBS 파일로 삭제하는 소스를 만들어 두시면, 압축을 푼 후에 원본
'파일을 삭제할 수 있습니다.
objFile.WriteLine"Atfer.Run=" & 쓰레기 파일 삭제할 VBS 파일 경로) 

objFile.close

Sh.run "C:\폴더\" & SID & ".bzs"

%>



위에 소스는 ASP 뿐만 아니라, 다른 스크립트에서도 적용이 가능합니다. 
그리고 보통 압축 콤포넌트가 Zip 파일만 지원하는데, 위와 같이 할 경우 압축 파일의 포맷에 구애받지 않고, 유틸리티가 지원 가능한 모든 압축 파일을 풀 수 있습니다.

속도는 압축 콤포넌트에 비해 휠씬 빠릅니다. (비교 불가) 

압축 파일 때문에 콤포넌트 구매하지 맙시다.