File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. Create temporary binary file test bin
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