Copy binary folder files

• Download source files - 2 Kb

Introduction

I needed a dirty method for copying my image folder.

Just use: WriteFolder txtSRCPATH, txtDESTPATH

Option Explicit

Private Sub Form_Load()

End Sub

Private Sub cmdCOPY_Click()
    WriteFolder txtSRCPATH, txtDESTPATH
End Sub
Sub WriteFolder(ByVal fsrc As String, ByVal fdes As String)

Dim Buffer() As Byte
Dim fname As String

    fname = Dir(fsrc, vbArchive)

    Do While fname <> ""
    DoEvents
        If (InStr(1, fname, "jpeg", vbBinaryCompare) > 0 <BR>              Or InStr(1, fname, "gif", vbBinaryCompare) > 0) Then
            DoEvents
            WriteFile fdes & fname, ReadFile(fsrc & fname, Buffer())
        End If
        DoEvents
        
        fname = Dir()
        DoEvents
    Loop

End Sub


Function ReadFile(fname As String, Buffer() As Byte) As Byte()

Dim fh, flen As Long

    fh = FreeFile
    Open fname For Binary Access Read As #fh
    flen = LOF(fh)
    Buffer = InputB(flen, #fh)
    Close #fh

ReadFile = Buffer()

End Function
Sub WriteFile(fname As String, Buffer() As Byte)

Dim fh As Long

    fh = FreeFile
    Open fname For Binary Access Write As #fh
    Put #fh, , Buffer
    Close #fh

End Sub

The WriteFolder method passes "jpeg" and "gif" files only. (You can change this as needed.)

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here