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

質問

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

環境
OS:Win2000
VB:ver 6.0

回答No.2

todo36 · ベストアンサー

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

お礼

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

補足

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

回答No.1

sha-girl

特にコンポーネントではなく、
バイナリーモードでオープンし読み書きするだけでコピーできます。

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

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()配列を再定義してます。

お礼

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

補足

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