vb6文件写入限制似乎为0x4000

我在文件写入似乎停止0x4000的位置遇到问题

For wrtCntr = 0 To lpNumDataBytesReturned - 1
    WriteDataBuffer_trans(wrtCntr) = TransposeBits(ReadDataBuffer(wrtCntr))
    Put #4, , WriteDataBuffer_trans(wrtCntr)
Next wrtCntr
 '' Ret = WriteFile(FileH, WriteDataBuffer_trans(0), lpNumDataBytesReturned, lpNumDataBytesReturnedCopy, 0&)

文件大小始终停止在0x4000，我无法让它再进一步。 我正在写信给

%TEMP%

有人有什么想法吗。我认为这是VB6的问题，它设置了最重要的位，该值被认为是负数，但无论我尝试什么，它都不会写入

文件已打开

sPathUser = Environ$("TEMP") & "\rd_out.txt"

二进制访问写入为#4的开放式sPathUser

谢谢,，

---

Martin

我能够让文件增长，你是对的，我有一个bug导致程序以16Mb文件大小提前退出。有时，如果将其设置为0x8000，则会将其读取为负数。我以为我已经把它们都清理干净了，但错过了一个。感谢您的回复。

请提供一个我应该补充的问题，实际文件大小似乎限制在16.0 MB。VB6没有规定实际文件大小，因此这肯定是您代码中的一个错误，我们无法看到，因为您忘记发布它。