Gary, I've just tried the "shell.application" out on a zip file with 3000 files in at 600Mb and the speed is virtually instant. What speeds are you experiencing?
Dave -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Garry Bettle Sent: 08 April 2012 18:04 To: [email protected] Subject: List files in a Zip with vfpcompression.fll Howdy all, Hope everyone is having a great Easter long weekend. I've got the following code to list a zip file's contents. It use Craig Boyd's wonderful vfpcompression.fll I thought the following code would be fine to just list files in a zip: * from http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,07ed8874-8781-4e76-878b-92b3f4cfc8b3.aspx RELEASE ALL lcFileZip = [FilesDownloaded.zip] CREATE CURSOR curFilesDownloaded ( FileName c( 50)) SET LIBRARY TO [vfpcompression.fll] IF UnZipOpen( lcFileZip) lnFiles = UnZipFileCount() FOR lnLoop = 1 TO lnFiles = UnzipAFileInfoByIndex( [laTemp], lnLoop) INSERT INTO curFilesDownloaded ( FileName) VALUES ( laTemp[ 1]) lnRecCount = RECCOUNT( [curFilesDownloaded]) IF lnRecCount % 100 = 0 WAIT TRANSFORM( lnRecCount) + [ ...] WINDOW NOWAIT ENDIF ENDFOR UnZipClose() ENDIF All works okay - eventually. The process gets slower as files are read in the zip, which suggests that it's reading from the start of the zip file each time. Seems very inefficent, especially as I'm testing zips with 1,000+ files each. Any suggestions? Cheers, Garry PS: I was hoping to use vfpcompression.fll as a replacement to the following: lcFileZip = [FilesDownloaded.zip] CREATE CURSOR curFilesDownloaded ( FileName c( 50)) o = CREATEOBJECT( [shell.application]) lnRecCount = 0 FOR EACH oFile IN o.NameSpace( lcFileZip).items INSERT INTO curFilesDownloaded ( FileName) VALUES ( oFile.Name) lnRecCount = RECCOUNT( [curFilesDownloaded]) IF lnRecCount % 100 = 0 WAIT TRANSFORM( lnRecCount) + [ ...] WINDOW NOWAIT ENDIF ENDFOR o = Null This line is a deal-breaker: FOR EACH oFile IN o.NameSpace( lcFileZip).items It reads all the filenames (too long when 1000 files+ are in the zip) before FOR EACH oFile begins. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html --- [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
