Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Open file, show first three entries in immediate window

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