DIM Buffer AS STRINGDIM BUFFERSI AS INTEGERDIM FileLength As Long, SuperBuffer AS Longdim Percentddone As Long, B AS Integer
Open xfilename for binary access c #i 'open the file to read filelength = LOF (i)
IF LOF (i) <> 0 Then Do WHILE NOT EOF (i): Doevents if FileLength - LOC (i) // Immediate window print Results: Buffersize = 2048 Superbuffer = 2048 LOC (1) = 2188buffersize = 2048 superBuffer = 4096 LOC (1) = 5146 .............. buffersize = 2048 superbuffer = 22571008 LOC (1) = 32422628BUFFERSIZE = 56 Superbuffer = 22571064 LOC (1) = 32422690 // Problem: The file size is actually 30.9m, but in the end, it can only be transmitted to 28.1m. The problem is not synchronized in the location of the file read LOC (1) and the actual transmission file size, in IF FileLength - LOC ( I) Please tell you how you can solve your own gratitude, you must have a high gift! You can send your own email: caopengzhao@sohu.com, you can also write it directly, thank you!
