投稿日 | : 2003/08/08(Fri) 17:05 |
投稿者 | : shin |
Eメール | : |
URL | : |
タイトル | : 2次元配列で・・・ |
fname(i)に1〜100までファイル名をいれて
下記のようにfdataに入れたいのですが、2次元配列にするとうまくいきません・・・
どこが悪いのか、または参考になるサイトでも構いませんので
よろしくおねがいしますm(_ _)m
dim ff as long
dim fdata as long
dim flen as long
for i=1 to 100
flen = FileLen(fname(i))
ReDim fdata(100, flen - 1) As Byte
ff = FreeFile
Open fname(i) For Binary Access Read As #ff
Get #ff, , fdata(i)
Close #ff
next