备份文件,无非就是拷贝一份,手动拷贝还是让电脑自己操作罢了
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
- 每隔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、程序设置为开机自启动