I have the requirement ( don't ask why ) to transfer a 20Gb file via
low-level code.
I had code that was working for smaller files but this size broke it.
I have so far got
[cMyTableNamea is the very large file name .dbf)
nBytes = 100000 ( or an appropriate size 'bite' to work with )
gnErrFile2 = FCREATE("TEMP_N")
gnFileHandle = FOPEN(cMyTableNamea)
IF FERROR() != 0
? "File open error:", FERROR()
ELSE
* Seek to end of file to determine the number of bytes in the file
nSize = FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF
IF nSize > 0
*!* DO WHILE !FEOF() < conceptual routine that needs correction
cString = FREAD(gnFileHandle, nBytes)
=FWRITE(gnErrFile2 , cString)
*!* ENDDO
FCLOSE(gnFileHandle)
FCLOSE(gnErrFile2)
ENDIF
Thank you in advance
Bryan
©2003 bryan wetton |
