分割文件

[liangwu]

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

[rainstormmaster]

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

[我和我的蓝天白云]

实现文件的拆分

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

[goodname008]

连合并，带分割，都用二进制。

[熊孩子开学喽]

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

[熊孩子开学喽]

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

[hongsongboy]

http://sky300.com:88/hongsong