Salut,
Je débute, mais entre ce forum et le forum .com j'avance un peu.
Je tente pour mon 1er script d'effectuer une sauvegarde sur
un disque externe.
J'essaie d'utiliser le script 7Zip.au3, mais je bloc pas mal
dans la fonction fileinstall pour incorporer à l'exe "7-zip32.dll"
apparament, il s'incorpore bien mais il ne ressort pas pendant l'exécution
de l'exe.
J'ai bien lu différent post mais pourtant ca plante.
Voici la totalité de mon code.
Merci d'avance de votre aide.
► Afficher le texteCode
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
Et le message d'alerte qui s'affiche dans la fenetre basse lors du f7 :
Code : Tout sélectionner
->Warning: This is an Unicode compiled script and will not run on Win9x/ME.
Et si je met "#AutoIt3Wrapper_UseAnsi=y" alors :
Code : Tout sélectionner
! AutoIt3 ANSI version not present, defaulting back to standard UNICODE version.
->Warning: This is an Unicode compiled script and will not run on Win9x/ME.
