VBでバイナリファイルのコピー・リネーム

Visual Basicで
指定したバイナリファイルに対し、ファイル名をつけて別のディレクトリに保存するというプログラムを作ろうと思っているのですが、
何か良いコンポーネント等はないですか？

環境
OS:Win2000
VB:ver 6.0

No.2 ベストアンサー 回答者： todo36 回答日時： 2002/06/03 11:14

FileCopyステートメントじゃ駄目？

この回答への補足

その手がありましたね！
忘れてました。試してみます。

補足日時：2002/06/03 11:27

この回答へのお礼

簡潔にできますね。
ありがとうございます。
ただ、同一パス、同一名の場合、エラーになります。
この回避を行えば、十分に使えます。

お礼日時：2002/06/03 11:32

No.1 回答者： sha-girl 回答日時： 2002/06/03 11:11

特にコンポーネントではなく、

バイナリーモードでオープンし読み書きするだけでコピーできます。

ちょっとサンプルを書いてみました。(コードは間違ってるかもしれません。)

dim bb() as byte
i=0
Open "binary1.bin" For Binary Access Read As #1
len=LOF(1)
redim bb(len)
For i = 1 To len
Get #1, i, bb(i-1)
next i
Close #1

Open "binary2.bin" For Binary Access Write As #2
For i = 1 To len
Put #2, i , bb(i-1)
next i
Close #2

ちなみにファイルのバイト数はLOFで取得できます。
それで取得したバイト数からredimでbb()配列を再定義してます。

この回答への補足

ありがとうございます。
試してみます。

補足日時：2002/06/03 11:24

この回答へのお礼

ありがとうございます。
少々、改良しましたが動きました。

お礼日時：2002/06/03 11:30