Salve a tutti,

ho un problema con la gestione di files di grandi dimensioni, oltre 2GB.

Il programma riportato di seguito funziona per files di piccole dimensioni, ma non riesce a leggere neanche un carattere di un file di grandi dimensioni, restituendomi tutti blanks. C'è un errore? E se si dove?

Grazie per l'aiuto.

************************************************** ********

Dim sBuffer As String
Dim iBytesRead As Long
Const kCharToRead = 10
Const kStartPos = 10

hFile = CreateFile("c:\a\a.txt", GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, 0&, 0)
Call SetFilePointer(hFile, kStartPos, 0, FILE_BEGIN) ' low, high
'
sBuffer = Space(kCharToRead) ' buffer in cui vanno i bytes letti
Call ReadFile(hFile, ByVal sBuffer, kCharToRead, iBytesRead, ByVal CLng(0))
'
CloseHandle hFile