| 投稿日 | ： 2005/02/17(Thu) 14:43 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ２次元のバイト配列の途中に読み込ませる |
単純にループで１つずつ入れていくとか(^^;
Dim SBUF(2, 4095) As Byte
ReadFile 1, 1, 1
Private Sub ReadFile(FNUM As Integer, ROFFSET As Long, BUF As Integer)
Dim bytTemp(4095) As Byte
Get FNUM, ROFFSET, bytTemp()
For i = 0 To 4095
SBUF(BUF, i) = bytTemp(i)
Next i
End Sub