如何以二进制读出一个文件写入另一个位置?

Question

复制文件：
Public Sub MyCopy(SFile As String, DFile As String)
    Dim TempFile As Integer
    Dim TempBytes() As Byte
    Dim FileLen As Long
    
    TempFile = FreeFile
    
    Open SFile For Binary As #TempFile
    FileLen = LOF(TempFile)
    ReDim TempBytes(1 To FileLen)
    Get #TempFile, , TempBytes
    Close #TempFile
    
    Open DFile For Binary As #TempFile
    Put #TempFile, , TempBytes
    Close #TempFile
    
End Sub

Answer 1

通过tcp/ip传文件就是这样的方法吗?

Answer 2

用TCP傳送文件..一般在傳送之前把文件讀入一個數組..當然,如果文件比較大.要分開幾次....讀入數組後.發送....

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