バイナリファイルの連結

解決

azumax 2006-07-20 03:15:37 No: 96030

バイナリファイルの連結に関する質問です。

ADODB.Stream でバイナリファイルを連結をする際、
下記のような要領で連結できますか？
コンパイルは通るのですが実際できているのかどうか自身ないです。。

  Dim BS
  Set BS = CreateObject("ADODB.Stream")
  BS.Type = adTypeBinary
  BS.Open

  '複数ファイルの連結
  BS.LoadFromFile "C:\Book1.xls"
  BS.LoadFromFile "C:\Doc1.doc"
  BS.LoadFromFile "C:\Tif1.tif"

ガッ 2006-07-20 04:13:03 No: 96031

とりあえずファイルに書き出すなり何なりして、データがそろっていることを確認するだけだとおもうのですよ

通ってみた 2006-07-20 04:27:13 No: 96032

なんでやればいいだけのことを聞くのか聞きたいですね・・・
回答者のことを実験道具だとでもお思いで？

sak 2006-07-20 18:27:30 No: 96033

>下記のような要領で連結できますか？

随分と簡略化されていているけれど、結合は何処でやっているの？

azumax 2006-07-20 22:10:49 No: 96034

自己解決しました。

２つストリームを用意。
１つ目のストリームにファイルを LoadFromFile
２つ目のストリームに Write

ありがとうございました。