BlobToFile – Copy a BLOB field’s contents to a binary file

BlobToFile – Copy a BLOB field’s contents to a binary file

' Copy a BLOB field's contents to a binary file.Sub BlobToFile(fld As ADODB.Field, filename As String, _    Optional ChunkSize As Long = 8192)    Dim fnum As Integer, bytesLeft As Long, bytes As Long    Dim tmp() As Byte        ' Raise an error if the field doesn't support GetChunk.    If (fld.Attributes And adFldLong) = 0 Then        Err.Raise 1001, , "Field doesn't support the GetChunk method."    End If    ' Open the file;, delete it firstoverwrite it if necessary.' Delete the     ' file if it exists already, then create a new one.    If Dir$(filename) <> "" Then Kill filename        fnum = FreeFile    Open filename For Binary As fnum    ' Read the field's contents, and write it the data to the file.    bytesLeft = fld.ActualSize        Do While bytesLeft        bytes = bytesLeft        If bytes > ChunkSize Then bytes = ChunkSize        tmp = fld.GetChunk(bytes)        Put #fnum, , tmp        bytesLeft = bytesLeft - bytes    Loop        Close #fnumEnd Sub

See also  How IoT Tech Will Transform Logistics

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist