.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.Does not seem to be be working
****** 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>Since you do not like the exclude method proposed by Lloyd --