Classic ASP ZIP압축

Classic ASP에서 파일을 압축할일이 생겨서 찾아봤다.

http://xstandard.com/en/documentation/xzip/

XZip.dll 파일을 등록후 적용했더니 작동이 잘된다.

1. <%
2. Dim objZip
3. Set objZip = Server.CreateObject("XStandard.Zip")
4. objZip.Pack "C:\Temp\golf.jpg", "C:\Temp\images.zip"
5. objZip.Pack "C:\Temp\racing.gif", "C:\Temp\images.zip"
6. Set objZip = Nothing
7. %>

2018-11-19 추가정보

- 압축시 한글파일명이 들어갈시 압축이 되지가 않았다.

- 단일파일 추가의 경우 한글파일 추가 되지 않았으나 폴더형태로 저장시 저장이 되었다.

- 폴더내의 *.* 의 형태로 모두 저장함

<%

Dim objZip

Set objZip = Server.CreateObject("XStandard.Zip")

objZip.Pack "C:\Temp\*.*", "C:\Temp\sample.zip"

Set objZip = Nothing

%>