備份檔案，無非就是拷貝一份，手動拷貝還是讓電腦自己操作罷了
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、程式設定為開機自啟動