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"


'Know > ASP' 카테고리의 다른 글

빵집  (0) 2009.07.24
Adding .FLV MIME Type in IIS  (0) 2009.07.09
트랩 오류  (0) 2008.06.20
[UTIL] robocopy.exe  (0) 2007.07.26

+ Recent posts