Garry Bettle wrote on 2012-04-11: > Grrr ... and now with added Subject line! > > G. > > ---------- Forwarded message ---------- > From: Garry Bettle <[email protected]> > Date: 11 April 2012 16:22 > Subject: Re: ProFox Digest, Vol 108, Issue 46 > To: [email protected] > > 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 >
Garry, Good that it is working. You're welcome. Tracy Pearson PowerChurch Software _______________________________________________ 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.
