hello, I need help on creating RAR or .ZIP file I have some sample code , but this code does not let me add more than one file , I wonder how to add more than one file thank you example code *biblioteca de ZIP $set ilusing "System.IO" $set ilusing "System.IO.Compression" class-id fazZip.Form1 is partial inherits type System.Windows.Forms.Form . working-storage section . 01 FInfo type FileInfo . 01 InStream type FileStream . 01 OutStream type FileStream . 01 ZipIt type GZipStream . method-id NEW . procedure division . invoke self :: InitializeComponent *C:\teste.html FInfo::FullName invoke new type FileInfo ( "c:\testebruno.txt" ) giving FInfo invoke FInfo :: OpenRead () giving InStream invoke type File :: Create ( FInfo :: FullName & ".gz" ) giving OutStream invoke new type GZipStream ( OutStream , type CompressionMode :: Compress ) giving ZipIt invoke InStream :: CopyTo ( ZipIt ) invoke ZipIt :: Close () invoke InStream :: Close () invoke OutStream :: Close () goback . end method . end class .
↧