سلام و درود. به روش زیر فایل زیپ رو بسازید.
Dim przip As PersianZipManager
Private zipparams As ZipParametr
zipparams.initialize
zipparams.withPassword("abcd").isEncryptFiles(True).withEncryptionMethod(zipparams.ENC_METHOD_AES) _
.withAesKeyStrength(zipparams.AES_STRENGTH_256).withCompressionLevel(zipparams.DEFLATE_LEVEL_NORMAL) _
.withCompressionMethod(zipparams.COMP_DEFLATE)
przip.initialize("przip")
przip.withFileName(File.DirRootExternal&"/filename.zip").withRunInThread(True)
przip.createZipFileFromFolder(File.DirRootExternal&"/foldername",zipparams.ZipParameters,False,1)