バイナリレベルでファイルをコピーし結合する

バイナリレベルで画像データをコピーする

Sub 画像ファイルをコピー()
Dim mySrm As New ADODB.Stream

'***********************************************************
'ここではSaveToFileメソッドの引数に何も指定していないので
'既定値の「adSaveCreateNotExists」が適用される。
'従ってすでにファイルが存在する場合は以下のエラーが発生する。
'実行時エラー '3004';
'ファイルへ書き込めませんでした。
'***********************************************************

With mySrm
  .Open
  .Type = adTypeBinary
  .LoadFromFile ThisWorkbook.Path & "\image\sample.gif"
  .SaveToFile ThisWorkbook.Path & "\image\sampleのコピー.gif"
  .Close
End With

Set mySrm = Nothing

End Sub

「sample.gif」をバイナリレベルで読み込み、内容を「sample.gifのコピー」と言う名前で保存する。

ここではSaveToFileメソッドの引数に何も指定していないので既定値の「adSaveCreateNotExists」が適用される。
従ってすでにファイルが存在する場合は以下のエラーが発生する。
「adSaveCreateOverWrite」指定すれば、メッセージは表示されず、データは上書きされる。