- 326 名前:デフォルトの名無しさん mailto:sage [2020/07/08(水) 07:58:30.68 ID:krt5VVG+d.net]
- >>316
簡単だろw Dim btByte() As Byte Dim lngFN As Long btByte(0)=&H4D btByte(1)=&H54 btByte(2)=&H68 btByte(3)=&H54 btByte(4)=&H68 btByte(5)=&H64 lngFN=FreeFile Open strPath For Binary As #lngFN Put #lngFN, btByte Close #lngFN
|

|