【VBA】BinaryCopy バイナリファイルのコピー処理

バイナリファイルをコピーする為の処理。

色々なサンプルソースを見ていたが、どうもバイナリを扱うファイル処理を扱うサイトが

少ないので、自分で作成。

このコーディングであれば、コピー元のファイルの容量が何Gだろうがコピーできるはずだ。

Sub BinaryCopy()

    Const INFILE As String = "c:\in.bin"
    Const OUTFILE As String = "c:\out.bin"

    Dim inFN As Integer
    Dim outFN As Integer
    inFN = FreeFile()
    Open INFILE For Binary Access Read As #inFN
   
    outFN = FreeFile()
    Open OUTFILE For Binary Access Write As #outFN
   
    Dim b As Byte
    Do While (1)
        Get #inFN, , b
        If EOF(inFN) Then
            Exit Do
        End If

        Debug.Print "0x" & Right("00" & Hex(CInt(b)), 2)
        Put #outFN, , b
    Loop
   
    Close #inFN
    Close #outFN
   
End Sub

コメント

タイトルとURLをコピーしました