分割文件

Question

怎样将一个大文件分割成多个小文件

Answer 1

用VB 6实现文件分割和还原：
http://www.ccw.com.cn/htm/app/aprog/01_6_12_2.asp

Answer 2

实现文件的拆分Private Sub SplitFile()    Dim strFileName1 As String    Dim strFileName2 As String    Dim strFileSplit As String    Dim aryContent() As Byte    Dim lngLOF(1) As Long '存放从文件头取得的两个文件的长度        strFileName1 = "c:\a2.bmp"    strFileName2 = "c:\b2.bmp"    strFileSplit = "c:\out.bmp"        Open strFileSplit For Binary As #100        Get #100, , lngLOF(0) '取得第一文件的长度    Get #100, , lngLOF(1) '第二文件的长度        Open strFileName1 For Binary As #1    Open strFileName2 For Binary As #2        ReDim aryContent(lngLOF(0)-1) '用第一文件的长度重定义数组，为读取第一文件做准备    Get #100, 9, aryContent() '从第9字节，即文件后面开始读取第一文件的内容    Put #1, , aryContent() '把取得的内容写入到拆分文件中        ReDim aryContent(lngLOF(1)-1)    Get #100, 9 + lngLOF(0) + 1, aryContent() '从第9字节再加上第一文件的长度处开始读取第二文件的内容，这里可以清楚地看到文件头的作用了    Put #2, , aryContent        Close #1    Close #2    Close #100        MsgBox "拆分完成。", vbInformation

Answer 3

不管三七二十一，都用二进制方法打开文件，窗体上放一个TEXT让用户选择分割的大小。
按照这个大小将文件写入新文件。
合并的时候，只用使用DOS命令"COPY File1+File2+File3...FileN 原来的文件名"　就可以了。

Answer 4

漏说了一句，读取原文件的时候，使用BYTE数组。