jwcolby
jwcolby at colbyconsulting.com
Mon May 9 09:39:57 CDT 2011
Glad you got it working. Thanks for reporting back. John W. Colby www.ColbyConsulting.com On 5/8/2011 9:47 PM, Darren - Active Billing wrote: > Hi guys > Thanks for the responses. > I rejigged it all - especially taking note of what Stuart said about the > issue being in the loop not the call > I also got some of the math done at the start point and held them in globals > rather than doing the all the math each time in the loop > And it's all good > So it seems the logic and methods were (kinda) ok - the placement and order > of them was not > Many thanks for your ideas and pointers > Darren > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan > Sent: Sunday, 8 May 2011 6:19 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] A2003+A2010 File Count in a folder > > Is the overfolw occurring in that sub, or in the timing loop that is > repeatedly calling that sub. > I'd suspect the latter. More complete example needed for diagnosis! > > -- > Stuart > > On 7 May 2011 at 19:42, Darren - Active Billing wrote: > >> Hi guys >> >> I keep getting stack overflow errors - need help >> >> We are creating XML files via some other process (Not Access) and I >> just want to count them during the process. >> >> I need to do it continually until the desired no of files is reached. >> >> I am building a progress bar around this file creation process and on >> some occasions we build thousands of files and it can take some time. >> >> Of course I could sit there and watch the file count grow in an >> Explorer window. But like I said this process can take ages. >> >> Application.FileSearch won't work in Access 2010 so I can't use that >> (I have a mix of 2003 and 2010 access versions). >> >> Most of the code I have found on the interweb does the job but I >> eventually run into stack overflows. >> >> Here's a sample of one way that does work but eventually it overflows. >> >> >> >> Private Sub f_fileCount(strPathFolder as string) >> >> Dim f As String >> >> Dim c As Long >> >> >> >> f = Dir$(strPathFolder& "*.xml") >> >> >> >> Do While Len(f)<> 0 >> >> c = c + 1 >> >> f = Dir$ >> >> Loop >> >> >> >> End sub >> >> >> >> I have also tried the FSO and that too (eventually) gave Stack >> Overflow errors. >> >> I had it in mind to test the file count using the time say every 5-10 >> seconds to update the progress bar. >> >> But it looks like this is not going to be possible >> >> Anyone done this sort of thing before? Any pointers? >> Thanks heaps in advance team >> Darren >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > > >