VBA/Excel/Access/Word/File Path/Binary File
create temporary binary file test.bin
<source lang="vb">
Option Explicit Private Sub CreateBinaryFile()
Dim sq As Double, i Open Environ("temp") + "\test.bin" For Binary As #1 For i = 1 To 100 sq = Sqr(i) Put #1, , sq Next i Close #1
End Sub
</source>
open file, show first three entries in immediate window
<source lang="vb">
Private Sub LoadBinaryFile()
Dim dbl As Double, i Open Environ("temp") + "\test.bin" For Binary As #1 Seek #1, 8 * 14 + 1 For i = 1 To 3 Get #1, , dbl Debug.Print dbl Next i Close
End Sub
</source>