>.lZip_ExcFlag = .t && Items that match specs in cZip_ExcList are EXCLUDED from the operation >.cZip_ExcList = ["*.END" "*._END.TXT"]&& Separate each filespec with a space. Place "Quotes" around long filenames. >>
>****** unZip Folder >****** This function will decompres an encrypted zip file to a selected folder >****** Files matching '*_END.TXT' or '*.END' will be unzipped last > >lparam lcZipFile,lcTargFolder > >local oDZ >oDZ = newobject('dynazip', 'dynazip.fxp') >with oDZ > .cUnz_ZipFile = lcZipFile > .cUnz_FileSpec = "*.*" > .cUnz_Destination = lcTargFolder > .lZip_ExcFlag = .t. && Items that match specs in cZip_ExcList are EXCLUDED from the operation > .cZip_ExcList = ["*.END" "*._END.TXT"] && Separate each filespec with a space. Place "Quotes" around long filenames. > > ********* delete this bit after testing > .lUSO_LogZipResults = .t. > .lUSO_LogZipResults =.t. > *************************************** > .lUSO_ExternalProg = .t. > .lUnz_CryptFlag = oApp.EncryptPackets && Use the value [password] in cUnz_CryptCode to determine if the item has a matching > ** password before extracting. > .cUnz_CryptCode = oApp.EncryptKey && The decryption code [password] used only if lUnz_CryptFlag is TRUE > > SET STEP ON > llRetVal=.UnzExtract() > > *** Ok now unzip the end_of_send file - Files of this type must always be extracted last > > .cUnz_FileSpec = ["*.END" "*._END.TXT"] > .lZip_ExcFlag = .f. && Items that match specs in cZip_ExcList are EXCLUDED from the operation > .cZip_ExcList = "" && Separate each filespec with a space. Place "Quotes" around long filenames. > > llRetVal=.UnzExtract() > > >endwith >oDZ.Release() >clear dlls >return llRetVal > >>