[R] Reprendre la copie interrompue antérieurement.

[ELGAMALI]

Bonsoir,
Peut-on améliorer le script ci-dessous (Auteurs : hellboy_21 & TerminAdminAtor) en lui ajoutant un bouton afin de reprendre la copie interrompue antérieurement.
Merci

► Afficher le texte

#NoTrayIcon
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

GUICreate("Copier / Couper", 575, 72, -1, -1, $WS_SYSMENU)
Opt("GUIOnEventMode", 1)
$lblCopierColler = GUICtrlCreateLabel("Vous désirez ", 10, 13)
$listeCopierColler = GUICtrlCreateCombo("Copier", 75, 10, 60)
GUICtrlSetData($listeCopierColler, "Couper")
$lblFichierDossier = GUICtrlCreateLabel(" le ou les ", 140, 13)
$listeFichierDossier = GUICtrlCreateCombo("Fichier(s)", 190, 10, 70)
GUICtrlSetData($listeFichierDossier, "Dossier")
$choix = GUICtrlCreateButton("choix", 270, 9, 50, 23)
GUICtrlSetOnEvent($choix, "FichierDossier")
$lblFichierDossier = GUICtrlCreateLabel(" vers le dossier ", 325, 13)
$parcourir = GUICtrlCreateButton("parcourir", 405, 9, 60, 23)
GUICtrlSetOnEvent($parcourir, "parcourir")
$lblGo = GUICtrlCreateLabel(" ==> ", 480, 13)
$go = GUICtrlCreateButton("Go !!!", 520, 9, 40, 23)
GUICtrlSetOnEvent($go, "go")
$var = ""
$varParcourir = ""
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
GUISetState()
While 1
WEnd
Func FichierDossier()
If GUICtrlRead($listeCopierColler) = "Copier" And GUICtrlRead($listeCopierColler) = "Couper" Then
MsgBox(48, "Erreur", "Le choix dans la liste Copier/Couper est inconnu")
GUICtrlSetState($listeCopierColler, $GUI_FOCUS)
Else
If GUICtrlRead($listeFichierDossier) = "Fichier(s)" Then
$message = "Sélectionner le ou les fichier(s) à " & StringLower(GUICtrlRead($listeCopierColler))
$var = FileOpenDialog($message, @MyDocumentsDir, "Tous (*.*)", 5)
Else
If GUICtrlRead($listeFichierDossier) = "Dossier" Then
$var = FileSelectFolder("Sélectionner le dossier à " & StringLower(GUICtrlRead($listeCopierColler)), "")
Else
MsgBox(48, "Erreur", "Le choix dans la liste Fichier(s)/Dossier est inconnu")
GUICtrlSetState($listeFichierDossier, $GUI_FOCUS)
EndIf
EndIf
EndIf
EndFunc ;==>FichierDossier
Func parcourir()
$varParcourir = FileSelectFolder("Sélectionner le dossier de destination", "")
EndFunc ;==>parcourir
Func go()
If Not $var = "" Then
If Not $varParcourir = "" Then
If GUICtrlRead($listeFichierDossier) = "Fichier(s)" Then
If GUICtrlRead($listeCopierColler) = "Copier" Then
If Not StringInStr($var, '|') = 0 Then
$Tableau = StringSplit($var, "|")
For $i = 2 To $Tableau[0]
FileCopy($Tableau[1] & "\" & $Tableau[$i], $varParcourir, 1)
Next
Else
FileCopy($var, $varParcourir, 1)
EndIf
MsgBox(64, StringLower(GUICtrlRead($listeCopierColler) & " => " & GUICtrlRead($listeFichierDossier)), 'Tout a bien été copié vers le répertoire "' & $varParcourir & '"')
$var = ""
$varParcourir = ""
Else
If GUICtrlRead($listeCopierColler) = "Couper" Then
If Not StringInStr($var, '|') = 0 Then
$Tableau = StringSplit($var, "|")
For $i = 2 To $Tableau[0]
FileMove($Tableau[1] & "\" & $Tableau[$i], $varParcourir, 1)
Next
Else
FileMove($var, $varParcourir, 1)
EndIf
MsgBox(64, StringLower(GUICtrlRead($listeCopierColler) & " => " & GUICtrlRead($listeFichierDossier)), 'Tout a bien été coupé puis collé vers le répertoire "' & $varParcourir & '"')
$var = ""
$varParcourir = ""
Else
MsgBox(48, "Erreur", "Le choix dans la liste Copier/Couper est inconnu")
GUICtrlSetState($listeCopierColler, $GUI_FOCUS)
EndIf
EndIf
Else
If GUICtrlRead($listeFichierDossier) = "Dossier" Then
If GUICtrlRead($listeCopierColler) = "Copier" Then
$Tableau = StringSplit($var, "\")
$nouveauChemin = $varParcourir & "\" & $Tableau[$Tableau[0]]
DirCreate($nouveauChemin)
DirCopy($var, $nouveauChemin, 1)
MsgBox(64, StringLower(GUICtrlRead($listeCopierColler) & " => " & GUICtrlRead($listeFichierDossier)), 'Le dossier "' & $var & '" a bien été copié vers le répertoire "' & $varParcourir & '"')
$var = ""
$varParcourir = ""
Else
If GUICtrlRead($listeCopierColler) = "Couper" Then
DirMove($var, $varParcourir, 1)
DirRemove($var, 1)
MsgBox(64, StringLower(GUICtrlRead($listeCopierColler) & " => " & GUICtrlRead($listeFichierDossier)), 'Le dossier "' & $var & '" a bien été coupé puis collé vers le répertoire "' & $varParcourir & '"')
$var = ""
$varParcourir = ""
Else
MsgBox(48, "Erreur", "Le choix dans la liste Copier/Couper est inconnu")
GUICtrlSetState($listeCopierColler, $GUI_FOCUS)
EndIf
EndIf
Else
MsgBox(48, "Erreur", "Le choix dans la liste Fichier(s)/Dossier est inconnu")
GUICtrlSetState($listeFichierDossier, $GUI_FOCUS)
EndIf
EndIf
Else
MsgBox(48, "Erreur", "Vous devez sélectionner un dossier de destination")
EndIf
Else
MsgBox(48, "Erreur", "Vous devez sélectionner un fichier ou un dossier à copier ou coller")
EndIf
EndFunc ;==>go
Func quitter()
Exit
EndFunc ;==>quitter

[Fish]

Bon aller, puisque personne le fait : On va pas te répondre ici, poste dans la catégorie aide du forum

[Tlem]

Sujet déplacé dans le bon forum.

[Jerem]

J'ai pris la liberté d'arranger un peu le code, en ajoutant des fonctions et en supprimant ce qui pouvait l'être pour alléger un peu. Normalement cela n'influe pas sur le fonctionnement (sauf erreur de ma part).

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>

GUICreate("Copier / Couper", 575, 72, -1, -1, $WS_SYSMENU)

$lblCopierColler = GUICtrlCreateLabel("Vous désirez ", 10, 13, 65)
$listeCopierColler = GUICtrlCreateCombo("Copier", 75, 10, 60, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($listeCopierColler, "Couper")
$lblFichierDossier = GUICtrlCreateLabel(" le ou les ", 140, 13)
$listeFichierDossier = GUICtrlCreateCombo("Fichier(s)", 190, 10, 70, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($listeFichierDossier, "Dossier")
$choix = GUICtrlCreateButton("choix", 270, 9, 50, 23)

$lblFichierDossier = GUICtrlCreateLabel(" vers le dossier ", 325, 13)
$parcourir = GUICtrlCreateButton("parcourir", 405, 9, 60, 23)
$lblGo = GUICtrlCreateLabel(" ==> ", 480, 13)
$go = GUICtrlCreateButton("Go !!!", 520, 9, 40, 23)
$var = ""
$varParcourir = ""

GUISetState()

While 1
    $nMsg = GUIGetMsg ()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Quitter ()
        Case $choix
            FichierDossier ()
        Case $parcourir
            Parcourir ()
        Case $go
            Go ()
    EndSwitch
WEnd

Func FichierDossier ()
    $temp = GUICtrlRead($listeFichierDossier)
    Switch $temp
        Case "Fichier(s)"
            $message = "Sélectionner le ou les fichier(s) à " & StringLower(GUICtrlRead($listeCopierColler))
            $var = FileOpenDialog($message, @MyDocumentsDir, "Tous (*.*)", 5)
        Case "Dossier"
            $var = FileSelectFolder("Sélectionner le dossier à " & StringLower(GUICtrlRead($listeCopierColler)), "")
    EndSwitch
EndFunc ;==>FichierDossier

Func Parcourir ()
    $varParcourir = FileSelectFolder("Sélectionner le dossier de destination", "")
EndFunc ;==>parcourir

Func Go ()
    If Not $var = "" Then
        If Not $varParcourir = "" Then
            If GUICtrlRead($listeFichierDossier) = "Fichier(s)" Then
                If GUICtrlRead($listeCopierColler) = "Copier" Then
                    Fichier (1, 'Tout a bien été copié vers le répertoire "')
                Else
                    Fichier (0 ,'Tout a bien été coupé puis collé vers le répertoire "')
                EndIf
            Else
                If GUICtrlRead($listeCopierColler) = "Copier" Then
                    $Tableau = StringSplit($var, "\")
                    $nouveauChemin = $varParcourir & "\" & $Tableau[$Tableau[0]]
                    DirCreate($nouveauChemin)
                    DirCopy($var, $nouveauChemin, 1)
                    Resultat ('Le dossier "' & $var & '" a bien été copié vers le répertoire "')
                Else
                    DirMove($var, $varParcourir, 1)
                    Resultat ('Le dossier "' & $var & '" a bien été coupé puis collé vers le répertoire "')
                EndIf
            EndIf
        Else
            MsgBox(48, "Erreur", "Vous devez sélectionner un dossier de destination")
        EndIf
    Else
        MsgBox(48, "Erreur", "Vous devez sélectionner un fichier ou un dossier à copier ou coller")
    EndIf
EndFunc ;==>go

Func Fichier ($type, $str) ; Type : 1 => Copie, 0 => Coupe
    If Not StringInStr ($var, '|') = 0 Then
        $Tableau = StringSplit($var, "|")
        For $i = 2 To $Tableau[0]
            FileMove($Tableau[1] & "\" & $Tableau[$i], $varParcourir, 1)
        Next
    Else
        If $type Then
            FileCopy ($var, $varParcourir, 1)
            MsgBox (0, "", "")
        Else
            FileMove ($var, $varParcourir, 1)
        EndIf
    EndIf
    Resultat ($str)
EndFunc ;=> Fichier

Func Resultat ($str)
    MsgBox(64, StringLower(GUICtrlRead($listeCopierColler) & " => " & GUICtrlRead($listeFichierDossier)), $str & $varParcourir & '"')
    $var = ""
    $varParcourir = ""
EndFunc

Func Quitter ()
    Exit
EndFunc ;==>quitter

Par contre je ne comprends pas ta demande, en regardant ton script, a aucun moment la copie n'est arrêtée. Dans quel cas la copie est elle interrompue ?

[ELGAMALI]

Bonsoir,
Il faut ajouter au script un nouveau bouton afin de reprendre la copie si elle est interrompue suite à l’arrêt brutale du PC.
A+

[mikell]

si elle est interrompue suite à l’arrêt brutale du PC.

Je préconise l'acquisition d'un bon onduleur

[ELGAMALI]

"Si tu vois un homme qui a faim, donne-lui un poisson : tu le nourriras pour un jour. Mais apprends-lui à pêcher et il se nourrira toute sa vie."
Proverbe chinois

Il faut jamais dire non, c'est impossible avec AutoIt. Là vous avez tort: AutoIt est imbattable il faut le manier avec allégresse et du bon cens. La solution est devant tes yeux mes tu ne la vois pas.
EL GAMALI Abdennasser

[mikell]

La solution est devant tes yeux mes tu ne la vois pas.

Ainsi parlait Zarathoustra

[Jerem]

@ELGAMALI : Ce que tu demandes supposes donc des transferts ou copies de très gros volume de données.
Pour que le transfert soit assez long pour pouvoir être interrompu.

Dans ce cas je suppose que le mieux serait de créer un fichier temporaire au lancement de la copie ou du déplacement contenant tous les fichiers et répertoires concernés et le mettre à jour à chaque copie pour supprimer le dernier fichier copier.

En cliquant sur le bouton, le programme irait lire les copies qui restaient à faire avant l'interruption.

Suis-je le seul à avoir l'impression que ce que je dis est très moche... ??

[sylvanie]

Bonjour,

Non ce que vous dites est pertinent, il faut juste consigner l'information du dossier de destination en plus de la liste des noms de fichiers à copier.
Puis penser à supprimer le fichier témoin à la fin de la dernière copie, sinon .... on recommencera au prochain lancement ...

NB : Il va de soit que ce fichier serai logé dans un répertoire temporaire du homedirectory de l'utilisateur

[Jerem]

Le problème qui pourrait se poser serait dans le cas où une copie ait été interrompue et qu'une nouvelle copie soit lancée sans avoir terminé la précédente.

Que faire du fichier temporaire dans ce cas ?

Il y a aussi d'autres questions qui peuvent se poser sur l'utilisation du fichier, comme vérifier si une telle fonctionnalité n'a pas d'impact conséquent sur la durée d'exécution.

Peut-être faudrait-il n'utiliser que le fichier comme support de mémorisation des fichiers à copier et stocker à côté la dernière ligne exécutée.

[sylvanie]

Concernant le premier point, il suffirait de détecter la présence du fichier lors du lancement de l'application et emettre un popup de warning indiquant que la dernière session s'est interrompue. Ainsi l'utilisateur pourra soit utiliser le "nouveau bouton" ou faire une nouvelle copie, ce qui écrasera du coups le fichier intermediaire précédent.

[ELGAMALI]

Pas mal sylvanie
Concernant le premier point, il suffirait de détecter la présence du fichier lors du lancement de l'application et émettre un popup de warning indiquant que la dernière session s'est interrompue. Ainsi l'utilisateur pourra soit utiliser le "nouveau bouton" (et/ou une nouvelle instruction: "tout reprendre" voir cas SuperCopier) ou faire une nouvelle copie, ce qui écrasera du coups le fichier intermédiaire précédent.
A+

[ELGAMALI]

Bonjour
Avec AutoIt est il possible de reprendre la copie la ou elle s'est stoppée? (la reprise des transferts) et si oui comment ?
Je m'explique: est il possible de reprendre la copie d'un fichier lors d'un envoi/copie coupé, si le fichier ne se copie pas entièrement. admettons que le fichier n' a été copier que 35% du fichier principale.
cordialement