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

[chentao_billow]

如题

[zyl910]

复制文件：
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

[chentao_billow]

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

[chinayang]

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

[makegame]

Private Sub Command_send_Click()
mg_filename = "E:\900\1\TRACK01.MP3"
da = FileLen(mg_filename)
If da = vbNullString Then
Exit Sub
End If

Open mg_filename For Binary As #1

For 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 j

Next i

Close #1

End Sub