WriteQuickArray
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
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
(writequickarray.html)- by Paolo Puglisi - Modifica del 25/3/2019