看别人写的文件分割工具挺好用，也学着写了一个，附源代码。

作者: 来源:网络文章时间:2005-12-13 17:21:00

看别人写的文件分割工具挺好用，也学着写了一个，附源代码。(11)             i = i + 1

            fnum2 = FreeFile()

            Open Trim(txtObject.Text) & "\" & Trim(Str(i)) & "_" & FileName For Binary As fnum2
'            If i = 1 Then Put fnum2, , SplitFiles
            Put fnum2, , vArr
            Close fnum2

            FileSize = FileSize - ReadSize
            '文件总大小减少.
        Wend
        Close fnum

        MsgBox "分割成功.", vbOKCancel, "提示信息"
    Else
    '分割
        Dim FindFile As Boolean
        Dim FilePath As String
        '是否还有后继文件标志
        FindFile = True
        FileName = Right(vFile, InStr(StrReverse(vFile), "\") - 3)
        FilePath = Left(vFile, Len(vFile) - InStr(StrReverse(vFile), "\") + 1)
        '求原始文件名称

        fnum = FreeFile()
        Open Trim(txtObject.Text) & "\" & FileName For Binary As fnum

共14页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] 8 :>

看别人写的文件分割工具挺好用，也学着写了一个，附源代码。相关文章：

看别人写的文件分割工具挺好用，也学着写了一个，附源代码。相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com