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

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

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

        While FindFile
            fnum2 = FreeFile()

            Open vFile For Binary As fnum2
            FileSize = LOF(fnum2)
            If FileSize > 0 Then
                ReDim vArr(1 To FileSize)

                Get fnum2, 1, vArr
                Put fnum, , vArr
                Close fnum2
            End If
            i = i + 1
            If Dir(Trim(Str(i + 1)) & "_" & FileName) = "" Then FindFile = False
            vFile = FilePath & Trim(Str(i)) & "_" & FileName
        Wend

        Close fnum

        MsgBox "合并成功.", vbOKOnly, "提示信息"
    End If
End Function

Private Sub cmdFind_Click()
Dim TmpPath As String

ShowDir Me.hWnd, TmpPath
If Trim(TmpPath) <> "" Then

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

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

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

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