二进制方式读文件？

Question

先以二进制方式打开文件,然后定义一个byte类型的数组,数组的大小就是你说的块的大小,然后用get 命令读取文件的内容.(自己算一下该从何处读,即地址)

Answer 1

dim content() as byte,lpos as long
filenum = FreeFile()
Open Trim(Text1.Text) For Binary As #filenum
读数据到content中，其中lpos是指定文件指针的位置
Get #filenum, lpos, content
close  #filenum
写数据到文件中
Put #filenum, lpos, content1

Answer 2

当然你要指定content的大小
redim content(1024)

Answer 3

Private Sub Command_send_Click()
mg_filename = "E:\900\1\TRACK01.MP3"
da = FileLen(mg_filename)
If da = vbNullString Then
   Exit Sub
End IfOpen mg_filename For Binary As #1For i = 0 To da \ 4096
    If da < 4096 Then
       ReDim myfile(1 To da) As Byte
    Else
       ReDim myfile(1 To 4096) As Byte
       da = da - 4096
    End If    Get #1, i * 4096 + 1, myfile    Winsockserver.SendData myfile    For j = 1 To 5000
        DoEvents
    Next jNext i
    
Close #1End Sub