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

chentao_billow 2002-11-20 10:10:48

如题

...全文

40 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

makegame 2002-11-28

打赏
举报

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

chinayang 2002-11-21

打赏
举报

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

chentao_billow 2002-11-20

打赏
举报

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

zyl910 2002-11-20

打赏
举报

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