バイナリファイルの置き換えをするには？ (ID:112283)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 バイナリで開いたデータを 10 の部分を 34 55 66 に 書き換えたいのですが、どうすればいいのでしょうか？ Replaceでやろうとしましたが、出来ませんでした。 ちなみにソースは、 Dim bytGetData() As Byte Dim Writebin() As Byte Dim RepS() As Byte Dim RepM() As Byte Dim fn As Long Dim strFile1 As String strFile1 = App.Path & "\bin.dat" fn = FileLen(strFile1) ReDim bytGetData(fn) fn = FreeFile Open strFile1 For Binary As #fn Get #fn, , bytGetData Close #fn RepS = StrConv(Chr$(&H10), vbFromUnicode) RepM = StrConv(Chr$(&H34) & Chr$(&H55) & Chr$(&H66), vbFromUnicode) Writebin = Replace(bytGetData, RepS, RepM) fn = FreeFile Open strFile1 For Binary As #fn Put #fn, , Writebin Close #fn です。よろしくお願いします。