[R] Attendre qu'un fichier soit modifié

[rjulie]

Bonjour,

J'ai cherché dans la doc et j'ai pas trouvé.

Je cherche une fonction qui permettrait d'attendre qu'un fichier soit modifier avec un paramètre de time Out .... ça existe

Merci

[mikell]

Les 2 ensemble je crois pas
Mais ça peut se faire facilement avec une boucle, FileGetTime et un timer

Code : Tout sélectionner

$a = FileGetTime($fichier, 0, 1)
$timer = TimerInit()
Do
   $b = FileGetTime($fichier, 0, 1)
Until $a <> $b or TimerDiff($timer) > 60000     ; 1 minute

[Tlem]

Oualà :

Code : Tout sélectionner

$File = "Test.txt"
$Timer = 60 ; Timeout de 60s
$FileDateMod = FileGetTime($File, 0, 1)

$iTimer = TimerInit()
While 1
    If FileGetTime($File, 0, 1) > $FileDateMod Then
        $Timer = 0
        ExitLoop
    EndIf
    If TimerDiff($iTimer)/1000 > $Timer Then ExitLoop
    Sleep(100)
WEnd

If $Timer = 0 Then
    MsgBox(64, "Info", "Le fichier " & $File & " a été modifié.")
Else
    MsgBox(16, "Info", "Timeout.")
EndIf

Edit : Zut, pas vu le message de Michel avant.

[rjulie]

Super merci à tous les deux, c'est exactement ce que je voulais mais je n'y arrivais pas ....

Et comme j'ai oublié dans le message précédent, bonne année 2014 ....

[Tlem]

Bonsoir Julie.
Pour la balise de titre, c'est [R] pour signifier que le sujet est résolu.

[rjulie]

Fait merci