Dim arr(1 To 100000) As Long
Dim fnum As Integer fnum = FreeFile Open "C:\Temp\xxx.dat" For Binary As fnum Put #fnum, , arr Close fnum You can read and write arrays quickly from files using Put and Get. This is much faster than reading and writing the array one entry at a time. |