タイトル : バイナリデータの取り出し 投稿日 : 2010/09/10(Fri) 23:51 投稿者 : ニール
VB6初心者です。 環境はVB6 Windows7です。よろしくお願いいたします バイナリデータを取り出し、 ファイルとして保存するということをやりたいです。 ファイルは2GBなどのファイルを扱うことがあります まず取り出しの処理の前に 以下のコードでファイルを開いて保存するような動作から作ってみたのですが 2GBのファイルのせいかReDimの行で「メモリが不足しています。」というエラーになりました どなたか解決方法を教えていただけませんでしょうか? お願いします Dim bytArray() As Byte Open "test.bin" For Binary As #1 ReDim bytArray(FileLen("test.bin") - 1) Get #1, , bytArray Open "Res.txt" For Binary Access Write As #2 Put #2, , bytArray Close #2 Close #1 |