[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
>