AutoIt Français

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Program Files\AutoIt3\Icons\filetype-blank.ico
#AutoIt3Wrapper_Res_Comment=Ceci est un programme d'automatisation de mes sauvegardes
#AutoIt3Wrapper_Res_Description=Script de sauvegarde Personnel
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=copyright BlueKit
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#NoTrayIcon
#include <GuiConstantsEx.au3>
#include <7Zip.au3>
#include <WindowsConstants.au3>


; Définition des variables utilisées.
$sTitre = "Sauvegarde"
$sDirBackup = "F:\Sauvegarde\En_Cours"
$sDirZip = "F:\Sauvegarde\"
$sZipFile = @MDAY & @MON & @YEAR & "_" & @HOUR & @MIN & ".zip"
$sSauvegarde1 = @MyDocumentsDir


;----------------------------------
; Lancement du script de sauvegarde
;----------------------------------
$sMsg = "La fonction de ce script est la sauvegarde des données vers le disque externe actuellement connecté." & @CRLF & @CRLF
$sMsg &= "Cliquez 'OK' pour lancer la sauvegarde ou 'Annuler' pour quitter le script."
If MsgBox(65, $sTitre, $sMsg) = 2 Then Exit


;-----------------------------------
; Compression du répertoire existant
;-----------------------------------
;-- Vérification si un répertoire existe déjà
if FileExists($sDirBackup) Then
    SplashOff()
    $sMsg = "Un répertoire de sauvegarde exite déjà," & @CRLF & @CRLF
    $sMsg &= "Voulez-vous le remplacer par une nouvelle sauvegarde ?"
    If MsgBox(49, $sTitre, $sMsg) = 2 then
        $sMsg = "Vous venez d'abandonner la sauvegarde" & @CRLF & @CRLF
        $sMsg &= "Au revoir"
        MsgBox(0, $sTitre, $sMsg)
        Exit
    EndIf
EndIf

;-- Insertion de la dll dans l'exe
FileInstall("7-zip32.dll", @ScriptDir & "\", 1)

;-- Affichage d'une msgbox pendant la compression
$sMsg = SplashTextOn($sTitre, "Archivage de l'ancienne sauvegarde en cours...", -1, 100, -1, -1, 32, "", 8)

;-- Création du répertoire de sauvegarde
DirCreate($sDirBackup)

;-- Changement du répertoire de travail afin de créer le Zip à l'adresse $sDirZip
FileChangeDir($sDirZip)

;-- Lancement de la compression
_7ZipAdd($sMsg, $sZipFile, $sDirBackup, 1)

;-- Si erreur pendant la compression, alors message d'erreur et fin du script
If @error Then
    MsgBox(48, "Création Archive", "Erreur lors de la création de l'archive de secours")
    FileDelete(@ScriptDir & "\7-zip32.dll")
    Exit
EndIf


;-------------------------------------------------
; Suppresion des fichiers de l'ancienne sauvegarde
;-------------------------------------------------
;-- Affichage d'un message pendant la suppression avec une pause de 2 secondes
$sMsg = SplashTextOn($sTitre, "Suppression des fichiers de l'ancienne sauvegarde en cours...", -1, 100, -1, -1, 32, "", 8)
FileDelete($sDirBackup)
Sleep(2000)

;-----------------------------------
; Création de la nouvelle sauvegarde
;-----------------------------------
;-- Copie du dossier Mes documents
$sMsg = SplashTextOn($sTitre, "Création de la nouvelle sauvegarde en cours...", -1, 100, -1, -1, 32, "", 8)
FileCopy($sSauvegarde1, $sDirBackup, 8)
Sleep(2000)

;-- Arrêt des fenêtres en cours et message de fin
SplashOff()
$sMsg = "La sauvegarde est terminé."
MsgBox(64, $sTitre, $sMsg)
FileDelete(@ScriptDir & "\7-zip32.dll")
Exit