ลิขสิทธิ์ (c) 2012 RCDMK <[email protected]>
อนุญาตให้บุคคลใด ๆ ที่ได้รับสำเนาของซอฟต์แวร์นี้และไฟล์เอกสารที่เกี่ยวข้อง "ซอฟต์แวร์") ได้รับอนุญาตโดยไม่เสียค่าใช้จ่าย เพื่อจัดการกับซอฟต์แวร์โดยไม่มีข้อจำกัด รวมถึงแต่ไม่จำกัดเพียงสิทธิ์ในการใช้ คัดลอก แก้ไข ผสาน เผยแพร่ แจกจ่าย ให้อนุญาตช่วง และ/หรือขายสำเนาของซอฟต์แวร์ และอนุญาตให้บุคคลที่ได้รับซอฟต์แวร์นี้สามารถทำได้ ภายใต้เงื่อนไขต่อไปนี้:
ประกาศเกี่ยวกับลิขสิทธิ์ข้างต้นและประกาศการอนุญาตนี้จะรวมอยู่ในสำเนาทั้งหมดหรือส่วนสำคัญของซอฟต์แวร์
ซอฟต์แวร์นี้มีให้ "ตามที่เป็น" โดยไม่มีการรับประกันใดๆ ทั้งโดยชัดแจ้งหรือโดยนัย ซึ่งรวมถึงแต่ไม่จำกัดเพียงการรับประกันความสามารถในการค้าขาย ความเหมาะสมสำหรับวัตถุประสงค์เฉพาะ และการไม่ละเมิด ไม่ว่าในกรณีใดผู้เขียนหรือผู้ถือลิขสิทธิ์จะต้องรับผิดต่อการเรียกร้องค่าเสียหายหรือความรับผิดอื่นใดไม่ว่าในการกระทำของสัญญาการละเมิดหรืออย่างอื่นที่เกิดขึ้นจากหรือเกี่ยวข้องกับซอฟต์แวร์หรือการใช้งานหรือข้อตกลงอื่น ๆ ใน ซอฟต์แวร์.
รวมไฟล์คลาสในหน้าที่ต้องการและสร้างอินสแตนซ์ของคลาส
dim zip
set zip = new aspZip
เปิดไฟล์ ZIP (สร้างหรือเปิดไฟล์ที่มีอยู่ในดิสก์)
zip.OpenArchieve("pathtofile.zip") ' this creates the archieve if it doesn't exists
เพิ่มไฟล์หรือโฟลเดอร์บางส่วน
zip.Add("..src")
zip.Add(".default.asp")
เขียนไฟล์ลงดิสก์
zip.CloseArchieve()
หากคุณต้องการแตกเนื้อหาของไฟล์ ZIP ให้ใช้เมธอด ExtractTo(DestinationPath)
zip.ExtractTo(".test")
หากไฟล์เก็บถาวรไม่มีไฟล์ใด ๆ มันจะถูกลบเมื่อวัตถุถูกทำลาย
บันทึก:
ในรีลีสปัจจุบัน (0.4) ปัญหาเกี่ยวกับการแตกเฉพาะโครงสร้างไดเร็กทอรีควรได้รับการแก้ไข แต่เวลาการประมวลผลจะนานขึ้นมากในขณะนี้ เนื่องจากการรอการสร้างไดเร็กทอรี เวลารอเพิ่มเติมขั้นต่ำคือ 500 มิลลิวินาที