刚在一个Button的Click事件写了以下的代码,试试..好用^_^
Const FILE_PARTS As Integer = 5
'Test
Dim ReadFileStream As System.IO.FileStream '文件流
Dim WriteFileStream As System.IO.FileStream '文件流
Dim FileInfo As System.IO.FileInfo '文件信息类
Dim Path As System.IO.Path '包含文件或目录路径信息类
Dim FileShare As System.IO.FileShare
Dim FileAccess As System.IO.FileAccess
Dim BinaryReader As System.IO.BinaryReader
Dim BinaryWriter As System.IO.BinaryWriter
Dim BinaryByte() As Byte
Dim BinarySize As Long
FileInfo = New System.IO.FileInfo(M_strFilePath)
BinarySize = FileInfo.Length() / FILE_PARTS
'假如文件分割为5段'''''读取流
ReadFileStream = New System.IO.FileStream(M_strFilePath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
'取得二进制文件
BinaryReader = New System.IO.BinaryReader(ReadFileStream)
For i As Integer = 0 To FILE_PARTS - 1
WriteFileStream = New System.IO.FileStream(M_strFolderPath + "\" + i.ToString + ".dlu", IO.FileMode.OpenOrCreate)
BinaryWriter = New System.IO.BinaryWriter(WriteFileStream)