- 333 名前：３０１ (ﾜｯﾁｮｲ 2301-6wWl) [2020/07/08(水) 09:38:09 ID:gPwSdoJG0.net]
- じゃあ、↓のドコが悪いんだろ？
Sub test()
Dim btByte() As Byte
Dim lngFN As Long
ReDim btByte(5) As Byte
btByte(0) = &H4D
btByte(1) = &H54
btByte(2) = &H68
btByte(3) = &H54
btByte(4) = &H68
btByte(5) = &H64
lngFN = FreeFile
Open "C:\hogehoge.bin" For Binary As #lngFN
Put #lngFN, , btByte
Close #lngFN
End Sub
