On 11 April 2012 02:59, <[email protected]> wrote: > Message: 2 > Date: Tue, 10 Apr 2012 17:26:54 -0400 > From: "Tracy Pearson" > > Garry, > > Is that code missing the first file in the Zip? > > Tracy Pearson > PowerChurch Software > > Doh!
You're correct Tracy. Many thanks! Tested with a zip file with 0, 1 and n files and the following now works super, Fox quick!: * 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)) lnRecCount = 0 SET LIBRARY TO [vfpcompression.fll] IF UnZipOpen( lcFileZip) = UnzipGotoTopFile() llFound = UnzipAFileInfo( [laTemp]) DO WHILE llFound INSERT INTO curFilesDownloaded ( FileName) VALUES ( laTemp[ 1]) lnRecCount = RECCOUNT( [curFilesDownloaded]) IF lnRecCount % 100 = 0 WAIT TRANSFORM( lnRecCount) + [ ...] WINDOW NOWAIT ENDIF RELEASE laTemp llFound = UnzipGotoNextFile() = UnzipAFileInfo( [laTemp]) ENDDO UnZipClose() ENDIF WAIT TRANSFORM( lnRecCount) + [ ... Done!] WINDOW NOWAIT Cheers, Garry --- 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/capuo4g47x9acsjjjdunum868sunlb0cbvfbhkxaz3e1_g1a...@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.
