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

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

   

   

    SplitFileName = "e:\class\classes.mdb"

    Split = 1400000

    FilesLen = FileLen(SplitFileName)

   

    fNum = FreeFile

    Open SplitFileName For Binary As fNum '计算备份参数

        NumFil = CInt(FilesLen / Split)

        ReDim CurrentFile.Files(1 To NumFil)

        For i = 1 To NumFil

  

;          ReDim CurrentFile.Files(i).Bytes(1 To Split)

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

        Next

   

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

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