cant read large file

[randem]

Please use VBCODE tags for your code.

Also use

Open sPath + File(i) For Binary Access Read Shared As #n

I believe a read only files transfers faster because no locks are needed.

Unfortunately reading large files will depend on your computer, memory and hard disk speeds. I would also suggest placing a DoEvents here

Get #n, , FileData
Close #n
[B]DoEvents[/B]
nLenFileData = Len(FileData)
Put #F, , nLenFileData
Put #F, , FileData