Page 1 sur 1

[R] Attendre qu'un fichier soit modifié

Posté : sam. 04 janv. 2014 20:31
par rjulie
Bonjour,

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

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

Merci

Re: [..] Attendre qu'un fichier soit modifié

Posté : sam. 04 janv. 2014 20:54
par 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

Re: [..] Attendre qu'un fichier soit modifié

Posté : sam. 04 janv. 2014 20:58
par 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.

[C] Attendre qu'un fichier soit modifié

Posté : sam. 04 janv. 2014 21:06
par 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 .... :D

Re: [C] Attendre qu'un fichier soit modifié

Posté : sam. 04 janv. 2014 21:16
par Tlem
Bonsoir Julie.
Pour la balise de titre, c'est [R] pour signifier que le sujet est résolu. ;)

Re: [R] Attendre qu'un fichier soit modifié

Posté : sam. 04 janv. 2014 21:20
par rjulie
Fait merci :oops: