Information générale
Catégorie:
Codage, syntaxe et commandes
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement