This is the problem:

=adir(my)
For fcounter = 1 to alen(my) / 5

On the first loop, fcounter = 1, and all works well. On the second loop, founter = 2 and you'll get the second column of row 1 in the array, which is the file size. The third time through, you'll get column 3, row 1 (date last modified), etc. Both Sergey and I have given you code that will work properly.


>Hello All,
>I'm getting some pretty weird behavior from my code and I hope someone out there will see what I'm missing.
>Everything in this code I have checked from the command window and it all works fine. But within the application, it all fails
>
>=adir(my)
>For fcounter = 1 to alen(my) / 5
> l_status = .t.
> l_process = .f.
> thisfile = my(fcounter,1)
> wait wind 'Checking file ' + thisfile nowait
>*the tt here returns a positve number
> tt = fopen(thisfile)
> If tt < 0
> Repl probs.desc with 'Unable to open file for checking'
> l_status = .f.
> =fclose(tt)
> Loop
> Endif
>
>=fseek(tt,0)
> Do while not feof(tt)
>
>**Here is the problem I'm always at feof() and I can't close the file either!!
>What's going on!
>
>Thanks
>Sandy