On 8 April 2012 19:04, Garry Bettle <[email protected]> wrote: > 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. >
Sorry for the repost: haven't seen a reply. Anyone have any advice? G. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html --- _______________________________________________ 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/capuo4g5gicjsj6aeasnzpt5aord-ajvqqcbfwd_b87uhw4m...@mail.gmail.com ** 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.
