备份程式( 二 ) _生活百科

文章插图
资料夹备份的算法流程，如图 2 所示。

文章插图
关键技术关键类及其属性、方法（ 1 ） System.IO.File 类及其方法： Exists 、 Copy 、 Delete。（ 2 ） System.IO.FileInfo 类及其属性： LastWriteTime。（ 3 ） System.IO.Directory 类及其方法： Exists 、 CreateDirectory。（ 4 ） System.IO.DirectoryInfo 类及其方法 :GetDirectories 、GetFiles。递归技术建立一个程式过程，把目标资料夹作为该过程的参数，该过程对资料夹下的档案进行直接处理；对子资料夹，首先判定在目标盘上是否存在，如果不存在，先在目标盘上创建该资料夹，然后递归调用过程自身；回归的条件，取完资料夹下子资料夹后进行回归。有关代码如下：【备份程式】Dim 档案对象数组 As FileInfo() = 源资料夹 .GetFiles()' 获取源资料夹下所有的档案 , 生成一个档案对象数组For Each 档案对象 In 档案对象数组 ' 循环获取数组中每' 个档案对象If Not File.Exists( 目标盘 . 档案对象 ) Then ' 目标资料夹' 是否存在该档案File.Copy( 源档案 , 目标档案 ) ' 不存在 , 进行直接複製Else ' 目标资料夹存在该档案If fi.LastWriteTime > dfi.LastWriteTime Then ' 比较' 修改日期时间属性File.Delete( 旧的目标档案 ) ' 先删除旧的目标档案File.Copy( 源档案 , 目标档案 ) ' 进行複製End IfEnd IfNext FORDim 子资料夹对象数组 As DirectoryInfo () = 源资料夹 .GetDirectories() ' 获取源资料夹下所有的子资料夹 , 生成一个文' 件夹对象数组For Each 资料夹对象 In 子资料夹对象数组 ' 循环获取' 数组中每个资料夹对象If Not Directory.Exists( 目标盘 . 资料夹对象 ) Then' 目标盘上是否存在该资料夹Directory.CreateDirectory(path2) ' 不存在 , 在' 目标盘上创建该资料夹End IfCALL 对该资料夹的档案进行备份Next FOR