Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Low level command
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Low level command
Miscellaneous
Thread ID:
00602045
Message ID:
00602045
Views:
45
Hello all,
This is a sample of the code
the idea here to merge a number of txt files into one file txt file

**************
aa = fopen(thisfile,10)
If aa < 0
=messagebox('Unable to open ' + thisfile + ' for uploading',0)
Release aa
Loop
Endif
l_process = .f.
Do while not feof(aa)
l_process = .t.
newline = fgets(aa)
=fputs(odrhandle,alltrim(newline))
**the var odrhandle is another txt file handle- Enddo
=fclose(aa)
Release aa

The problem is that many times when I open a file, I am immediately at feof() and I cannot then fclose() the file.

Any ideas about what is going wrong would be gratly appreciated. I've tested the code from the command window and everything works the way one would expect it to work.

Thanks

Sandy
Next
Reply
Map
View

Click here to load this message in the networking platform