|
nbsp; nActual = m_cFileRead.ReadBlock(lpBuf, BUFFER_SIZE)
m_cFileWrite.WriteBlock lpBuf, nActual
Loop Until nActual < BUFFER_SIZE ''''当实际读取字节数小于缓冲区大小的时候，就不需要再读啦,已读完啦m_cFileRead.CloseFile
m_cFileWrite.CloseFile MsgBox "OK! total time:" & Timer - tmr
End Sub Private Sub Command2_Click()
Const BUFFER_SIZE = 1
Dim nActual As Long
Dim aBuf(0 To BUFFER_SIZE - 1) As Byte
Dim tmr As Single tmr = Timer If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败！" & Text1.Text
If Not m_cFileWrite.OpenBinary(Text2.Text) Then MsgBox "打开文件失败！" & Text2.Text Do
nActual = m_cFileRead.ReadBlock(VarPtr(aBuf(0)), BUFFER_SIZE)
m_cFileWrite.WriteBlock VarPtr(aBuf(0)), nActual
Loop Until nActual < BUFFER_SIZE ''''当实际读取字节数小于缓冲区大小的时候，就不需要再读啦,已读完啦 m_cFileRead.CloseFile
m_cFileWrite.CloseFile MsgBox "OK! total time:" & Timer - tmr
End Sub Private Sub Command3_Click()
Const BUFFER_SIZE = 40960 * 2
Dim nActual As Long
Dim aBuf(0 To BUFFER_SIZE - 1) As Byte
Dim tmr As Single
Dim lFileLen As Long
Dim iFileNum As Integer
Dim k As Long tmr = Timer If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败！" & Text1.Text
If Not m_cFileWrite.OpenBinary(Text2.Text) Then MsgBox "打开文件失败！" & Text2.Text
lFileLen = m_cFileRead.FileLength
iFileNum = m_cFileRead.FileNumber k = 0
Do
k = k + 1
If k = 10 Then
k = 0
pb1.Value = 100 * (Seek(iFileNum) / lFileLen)
DoEvents
End If
nActual = m_cFileRead.ReadBlock(VarPtr(aBuf(0)), BUFFER_SIZE)
m_cFileWrite.WriteBlock VarPtr(aBuf(0)), nActual
Loop Until nActual < BUFFER_SIZE ''''当实际读取字节数小于缓冲区大小的时候，就不需要再读啦,已读完啦 m_cFileRead.CloseFile
m_cFileWrite.CloseFile MsgBox "OK! total time:" & Timer - tmr
End Sub Private Sub Command4_Click()
Dim sPass As String
sPass = InputBox("请输入密码。")
Dim cLogi As New CLogistic
cLogi.Pass = sPass Const BUFFER_SIZE = 4096
Dim nActual As Long
Dim aBuf(0 To BUFFER_SIZE - 1) As Byte
Dim tmr As Single
Dim lFileLen As Long
Dim iFileNum As Integer
Dim k As Long tmr = Timer If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败！" & Text1.Text
If Not m_cFileWrite.OpenBinary(Text2.Text) Then MsgBox "打开文件失败！" & Text2.Text
lFileLen = m_cFileRead.FileLength
iFileNum = m_cFileRead.FileNumber k = 0
Do
k = k + 1
If k = 10 Then
k = 0
pb1.Value = 100 * (Seek(iFileNum) / lFileLen)
DoEvents
End If
nActual = m_cFileRead.ReadBlock(VarPtr(aBuf(0)), BUFFER_SIZE)
cLogi.EncBlock aBuf, nActual
m_cFileWrite.WriteBlock VarPtr(aBuf(0)), nActual
Loop Until nActual < BUFFER_SIZE ''''当实际读取字节数小于缓冲区大小的时候，就不需要再读啦,已读完啦 m_cFileRead.CloseFile
m_cFileWrite.CloseFile MsgBox "OK! total time:" & Timer - tmr End Sub Private Sub Command5_Click()
If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败！" & Text1.Text
m_cFileRead.CloseFile If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败！" & Text1.Text
m_cFileRead.CloseFile If Not m_cFileWrite.OpenBinary(Text2.Text) Then MsgBox "打开文件失败！" & Text2.Text
m_cFileWrite.CloseFile
If Not m_cFileWrite.OpenBinary(Text2.Text) Then MsgBox "打开文件失败！" & Text2.Text
m_cFileWrite.CloseFile End Sub
''''--------------------------------------------------------------------------------------------------------------------------- ''''-------------------------------------------------------------------------------------------------------------------------'''' 完整的VB工程文件可从这里下载 http://lqweb.nease.net/mycode/FileReadBlockFileWriteBlock.zip
上一页 [1] [2]
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
