File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. 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