Option Explicit
Private Type FileSection '自定义FileSection类型
Bytes() As Byte '函数返回一个字节型数组
FileLen As Long '定义文件长度变量
End Type
Private Type SectionedFile '自定义SectionedFile类型
Files() As FileSection '函数返回一个FileSection类型的数组
NumberOfFiles As Long '定义文件长度变量
End Type
Private Type FileInfo '自定义FileInfo类型
OrigProjSize As Long '定义文件分割大小变量
OrigFileName As String '定义文件分割名称变量
FileCount As Integer '定义文件分割总数变量
FileStartNum As Long '定义文件分割数量变量
End Type
'选择要分割的文件
Private Sub Command1_Click()
dlgOpen.Filter = "所有文件(*.*)|*.*" '选择文件类型
dlgOpen.ShowOpen '打开文件
If dlgOpen.FileName <> "" Then
Text1.Text = dlgOpen.FileTitle '记录文件名
End If
End Sub
'执行分割文件命令
Private Sub Command2_Click()
Dim msg As String
If Not Split(Text1.Text, msg, CLng(Text2.Text)) Then '调用分割函数进行分割
MsgBox msg, vbCritical, "错误" '提示信息
Else
MsgBox "文件分割成功！", vbInformation, "成功" '提示信息
End If
