[R] Récupérer la date de modification d'un dossier

[diabolokev]

Bonjour,

Je cherche à récupérer la date de modification d'un dossier pour que si la date change, je le copie dans un autre dossier avec l'heure, les minutes et les secondes actuelle.

J'ai repris un bout de code et je l'ai un peu modifié :

► Afficher le texte

Code : Tout sélectionner

$Chemin = "C:\Documents and Settings\kbourgeois\Mes documents\MonDossier"
$DateModif1 = FileGetTime($Chemin, 0, 1) ; On récupère la date du fichier au premier lancement du script.

 HotKeySet("{ESC}", "Terminate") ; Fonction pour quitter le script

; Boucle infinie
While 1
    $DateModif2 = FileGetTime($Chemin, 0, 1) ; On récupère la date du fichier pour comparaison
    If $DateModif1 <> $DateModif2 Then ; La comparaison
        ; On copie le fichier pour l'envoyer vers une autre destination
        FileCopy($Chemin, "C:\Test\" & @HOUR & "_" & @MIN & "_" & @SEC)
        $DateModif1 = FileGetTime($Chemin, 0, 1) ; Réinitialisation de la date de contrôle.
    EndIf
    Sleep(3000) ; Temporisation du script (3sec)
WEnd

; La fonction pour quitter.
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Merci d'avance pour votre aide.

Diabolokev.

[TT22]

Salut,
En premier, ta balise doit être [..]

Et pour ton problème, remplace cette ligne :

Code : Tout sélectionner

FileCopy($Chemin, "C:\Test\" & @HOUR & "_" & @MIN & "_" & @SEC)

Par celle-là :

Code : Tout sélectionner

DirCopy($Chemin, "C:\Test\" & @HOUR & "_" & @MIN & "_" & @SEC,1)

[diabolokev]

D'accord, par contre, si avant la boucle, je mets :

Code : Tout sélectionner

MsgBox(4096, "Test", $DateModif1)

Il ne me sort qu'une box vide. Il n'arrive donc pas à récupérer la date de modification du dossier.

[diabolokev]

Désolé du double post.

Tout compte fait, mon programme fonctionne, merci.

[TommyDDR]

Pour éviter les double post, il existe le bouton "Editer" en bas a droite de votre post.