请帮忙解释一下这段VB程序，关于图片转化二进制的

Private Sub FileToBlob(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
Dim fnum As Integer, bytesLeft As Long, bytes As Long
Dim tmp() As Byte
If (fld.Attributes And adFldLong) = 0 Then
Err.Raise 1001, , "Field doesn't support the GetChunk method."
End If
fnum = FreeFile
Open FileName For Binary As fnum
bytesLeft = LOF(fnum)
Do While bytesLeft
bytes = bytesLeft
If bytes > ChunkSize Then bytes = ChunkSize
ReDim tmp(1 To bytes) As Byte
Get #1, , tmp
fld.AppendChunk tmp
bytesLeft = bytesLeft - bytes
Loop
Close #fnum
End Sub

Private Sub BlobToFile(fld As ADODB.Field, FileName As String, Optional ChunkSize As Long )
Dim fnum As Integer, bytesLeft As Long, bytes As Long
Dim tmp() As Byte
If (fld.Attributes And adFldLong) = 0 Then
Err.Raise 1001, , "Field doesn't support the GetChunk method."
End If
If Dir$(File

请解释一下这段vb程序 请帮忙解释一下这段VB程序，关于图片转化二进制的 请大家帮忙看一下这段VB程序 请解释一下这段VB代码 请解释一下这段vb语句 谁能帮忙解释一下这段程序 帮忙解释一下这段C程序 请帮小弟解释一下这段程序 帮我逐条解释一下这段VB程序 请帮忙解释一下用VB开发的ARCGIS的程序