create temporary binary file test.bin : Binary File « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. Binary File

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

 

Related examples in the same category