我如何读取一个外部文件,把它形成二进制数据.????????

Question

麻烦详细一些,有个说明,我不太懂vb.

Answer 1

Private Sub Command1_Click()
   Dim a() As Byte
  Open "D:ss.jpg" For Binary As #1
       ReDim a(LOF(1) - 1) As Byte
       Get #1, , a
  Close #1
End Sub

Answer 2

再转换为2进制
Private Sub Command1_Click()
   Dim a() As Byte
  Open "D:ss.jpg" For Binary As #1
       ReDim a(LOF(1) - 1) As Byte
       Get #1, , a
  Close #1
  Debug.Print xx(a)
End SubPublic Function xx(b() As Byte) As String
  Dim i As Integer
    For i = 0 To UBound(b)
       xx = xx & huan2(CInt(b(i)))
End Function
Public Function huan2(ten As Integer) As String
   Dim two As String
   Dim n As Double
   Do Until ten = 0
      n = ten Mod 2
      two = n & two
      ten = ten \ 2
   Loop
  huan2 = two
End Function

Answer 3

Dim b() As Byte
  Open "c\:a.bmp" For Binary As #1
       ReDim b(LOF(1) - 1) 
       Get #1, , b
  Close #1

Answer 4

这是我的一个函数，原来是别人的后来经过我的改装，变成了我的，现在我程序里使用，经过测试，安全，就是不知道是否满足要求：'
'本函数将文件分割成大小300Byte，并存放到数组arrFile中，lngReturFileNum为返回的分割的块数
Public Function SplitFile(ByVal strSplitFileName As String, ByVal lngSplit As Long, ByRef lngReturFileNum As Long) As Boolean
    
    Dim SaveName As String
    Dim fnum As Integer, fnum1 As Integer
    SplitFile = True
    '    On Error GoTo error1
    
    Dim byt1() As Byte
    
    Dim LngNumFile As Long, LngLoop As Long, FilesLen As Long
    fnum = FreeFile
    Open strSplitFileName For Binary As fnum
    '/＊精确计算文件将被分割的个数＊/
    FilesLen = FileLen(strSplitFileName)
    If CLng(FilesLen / lngSplit) >= (FilesLen / lngSplit) Or CLng(FilesLen / lngSplit) = (FilesLen / lngSplit) Then
        LngNumFile = CLng(FilesLen / lngSplit)
    Else
        LngNumFile = CLng(FilesLen / lngSplit) + 1
    End If
    lngReturFileNum = LngNumFile
    
    For LngLoop = 1 To LngNumFile
        If LngLoop < LngNumFile Then
            ReDim byt1(lngSplit - 1)
            ReDim Preserve arrFile(LngLoop - 1)
            ReDim Preserve arrFile(LngLoop - 1).byt(lngSplit - 1)
            Get #fnum, , byt1
        Else
            ReDim byt1(FilesLen - ((LngNumFile - 1) * lngSplit) - 1)
            ReDim Preserve arrFile(LngLoop - 1)
            ReDim Preserve arrFile(LngLoop - 1).byt(FilesLen - ((LngNumFile - 1) * lngSplit) - 1)
            Get #fnum, , byt1
            Close #fnum
        End If
        
        
        arrFile(UBound(arrFile)).byt = byt1
        arrFile(UBound(arrFile)).lngCurrentNum = LngLoop
        
        If LngLoop = 4 Then
            Debug.Print ""
        End If
    Next LngLoop
    
    SplitFile = True
    Exit Function
error1:
    SplitFile = False
End Function

Answer 5

参数说明：
strSplitFileName 为文件路径；
lngSplit 为分割文件的大小，你页可以不分割；
lngReturFileNum 为返回的分割的个数。