的实际长度 ReDim dData(0 To AppSize - 1) As Byte '// 重新定义数组大小 Seek #2, ExeSize - AppSize + 1 Get #2, , dData() Close #2 '// APP 文件的开始位置 '// EXE 文件的长度 '// APP 文件的长度 '// 用于保存 APP 文件数据的数组 '// 取 EXE 文件的长度
Open dFile For Binary As #3 Put #3, , dData() Close #3 '// 将数据写入 APP 文件
End Sub '-----------------------------------------------------------------------'- aBuffer 是所取得的 FOX 结构类型,ID 是编号,dPath 是要分离到的目录 '- 算法
设计:定义一个数组,大小=从当前编号的文件的大小,从当前编号的文件 '- 开始的地方读取大小相当的数据,赋予数组 '-----------------------------------------------------------------------Public Sub SplitFile(aBuffer As VfpStructure, ID As Long, dPath As String) Dim tData() As Byte ReDim tData(0 To aBuffer.aFilesSize(ID) - 1) As Byte Open aBuffer.aAppFileName For Binary As #4 Seek #4,