保存桌面快捷方式 - - 设为首页 - 手机版
凹丫丫旗下网站：四字成语大全 - 故事大全 - 范文大全
热门搜索： 百度  工作总结  工作计划  十八大  毕业论文  毕业设计  读后感  下乡工作总结  思想汇报  述职报告 
您现在的位置： 范文大全 >> 理工论文 >> 计算机信息技术 >> 正文

用VB实现对库文件的分割备份

     For i = 1 To NumFil

            Get #fNum, , CurrentFile.Files(i).Bytes

        Next

        ReDim CurrentFile.Files(NumFil).Bytes(1 To FilesLen - ((NumFil - 1) * Split))

        CurrentFile.NumberOfFiles = NumFil

        Get #fNum, , CurrentFile.Files(NumFil).Bytes

        CurrentFile.Files(NumFil).FileLen = UBound(CurrentFile.Files(NumFil).Bytes)

    Close #fNum

    For i = 1 To CurrentFile.NumberOfFiles '分割备份

        SaveName = SplitFileName & "." & Format(BeginningNumber - 1 + i, "00#")

        fNum = FreeFile

        Open SaveName For Binary As fNum

            Put #fNum, 1, CurrentFile.Files(i)

    &nbs

《用VB实现对库文件的分割备份(第4页)》
 «   1   2   3   4   5   6   7   8   » 
本文链接地址：http://www.oyaya.net/fanwen/view/140687.html
  • 上一篇范文： 刍议防火墙的选购
  • 下一篇范文： 利用ASP实现在线统计图表

    • 　★读了本文的人也读了：
    ★温馨提示：你可以返回到　计算机信息技术　也可以利用本站页顶的站内搜索功能查找你想要的文章。