Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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