간단한 파일 압축

ZIP 파일을 생성한 후 서버에 저장되어 있는 파일을 압축해서 추가하는 방법을 설명합니다.

간단한 파일 압축

탭스 업로드가 제공하는 ZIP 오브젝트 이름은 TABSUpload4.ZipFile 입니다. 해당 이름으로 오브젝트를 생성한 후 Create 메서드를 호출해서 ZIP 파일을 생성할 수 있습니다. 성공적으로 ZIP 파일이 생성된 것을 확인한 후 AddFile 메서드를 사용해 압축할 파일을 지정합니다. 파일 추가 작업이 끝났다면 Close 메서드를 호출해 ZIP 파일 생성 작업을 완료합니다.

다음은 ZIP 파일을 생성한 후 file1.htm과 file2.htm 파일을 ZIP 파일에 추가하는 예제입니다.

ASP

Copy

Set zip = Server.CreateObject("TABSUpload4.ZipFile")
If zip.Create("D:\zipped\sources.zip", "") Then
    zip.AddFile "D:\Source\file1.htm"
    zip.AddFile "D:\Source\file2.htm"    
    zip.Close
End If

압축한 파일 이름 변경

서버에 저장되어 있는 파일 이름이 코드화 되어 있고 실질적인 파일 이름이 데이터베이스 등에 저장되어 있을 경우 실질적인 이름으로 ZIP 파일을 구성할 수 있습니다. AddFileEx 메서드는 압축할 파일과 표시 이름이 다른 경우 사용할 수 있는 메서드로 아래 예제와 같이 적용할 수 있습니다.

ASP

Copy

Set zip = Server.CreateObject("TABSUpload4.ZipFile")
If zip.Create("D:\zipped\sources.zip", "") Then
    zip.AddFileEx "D:\Source\a6da3372-6ecf-4d83-941c-b42bddb667a9.dat", "월간보고.xls"
    zip.Close
End If

폴더 생성

ZIP 파일 내부에 폴더를 생성하고 해당 폴더에 파일을 추가할 수 있습니다. 폴더를 생성하기 위해 AddFolder 메서드를 호출합니다. 폴더를 추가한 후 AddFileEx 메서드 호출해 파일을 추가할 때 두 번째 파라미터인 fileNameInZip에 추가한 폴더 이름을 붙여 지정하면 해당 폴더로 압축되어 추가됩니다. 압축 해제시 폴더가 생성되고 그 폴더 안에 압축된 파일이 해제되어 저장됩니다.

ASP

Copy

Set zip = Server.CreateObject("TABSUpload4.ZipFile")
If zip.Create("D:\zipped\sources.zip", "") Then
    zip.AddFolder "서브 폴더"
    zip.AddFileEx "D:\Source\file2.htm", "서브 폴더\file2.htm"
    zip.Close
End If