vb.net自动备份文件

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/qq_37547376/article/details/85338487

备份文件，无非就是拷贝一份，手动拷贝还是让电脑自己操作罢了
1、备份一份文件，要考虑到当前和备份后所占的空间。
2、获取当前备份时间。

Dim MyDateTime As String = (Format(DateTime.Now, "yyyyMMdd")).ToString ' 获取本地时间

3.获取备份文件的路径，若无此路径，先创建。

Directory.CreateDirectory("需要备份到某处的路径")
Dim fileconfig() As String = Directory.GetDirectories("需要备份到某处的路径")

4、备份的第一份。

Dim MinConfig As String = fileconfig.Min'最初始的备份记录

5.定时删除备份。

 '当bin文件夹中的文件大于5份或等于5份时,删除最早日期的文件夹
        If fileconfig.Length >= 5 Then
            Directory.Delete(Minconfig, True)
        End If

6. 每隔3天自动备份一次(可能存在周末未启动程序，即大于等于3天的情况下备份一次)

        'If fromDate - toDate >= 3 Then
        If Not Directory.Exists(strDirectoryDesPath) Then
            Directory.CreateDirectory(strDirectoryDesPath)
        End If

7、备份。

		For Each finfo In finfos '循环拷贝子文件
            File.Copy(finfo.FullName, strDirectoryDesPath & "" & finfo.Name, True)
        Next

        Dim DirSrc, Dirs() As DirectoryInfo
        Dirs = DirectorySrc.GetDirectories()

        '递归调用自身 
        For Each DirSrc In Dirs
            Dim DirDes As New DirectoryInfo(strDirectoryDesPath)
            CopyDerictory(DirSrc, DirDes)
        Next        

8、程序设置为开机自启动