PowerBuilder à Donf ! / [RESOLU] Surveiller mon repertoire

mattdamon · 17-04-2008 09:59:53

Bonjour à tous,
je voulais surveiller mon répertoire si un nouveau fichier qui se mets dans ce répertoire, et chaque fois je reçoit le fichier je l'efface pour attendre le fichier suivant, pour cela j'ai écrit le code ci-dessous :

Code: pb

of_start ()
do while of_isRunning ()
  IF FileExists (as_file) THEN
     Yield()
    EXIT
  
  END IF
  Yield()
  This.SysSleep (al_sleep)  

LOOP

avec as_file l'adresse et nom du fichier et al_sleep le temps d'attente.

le problème de ce code c'est que lorsque je reçoit un fichier je l'efface... mais ne détecte pas les autres fichiers qui se mettent juste après le premier fichier.

@+

Dernière modification par mattdamon (17-04-2008 12:18:44)

erasorz · 17-04-2008 10:55:58

Bonjour , ça va être dur de t'aider sans le code des fonctions of_start, of_isRunning, SysSleep ...

foon · 17-04-2008 10:56:20

Bonjour ,

Pourquoi n'utilises-tu pas un timer pour scruter ton répertoire à intervalles réguliers?

De même, tu ne précises pas où est mis ton code (dans un userobject, une fenêtre...? Est-ce un événement, une fonction...?)

mattdamon · 17-04-2008 11:22:06

En fait, j'ai mis ce code dans l'évènement OPEN() d'une fenêtre et je voulais qu'il surveille mon répertoire chaque al_sleep avec le temps de réponse que j'ai passé comme paramètre à la fonction of_checkdirectory(as_file, al_sleep).

al_sleep en fait c'est le timer pour scruter mon répertoire.

Dernière modification par mattdamon (17-04-2008 11:22:30)

mattdamon · 17-04-2008 11:25:01

of_checkdirectory(as_file, al_sleep) c'est une fonction de mon userobject.

Chrnico · 17-04-2008 11:28:49

A l'Open de ta fenêtre, tu n'as qu'à simplement appeler la méthode Timer(al_sleep).
Du coup l'évènement timer de la fenêtre sera lancé pour chaque interval de temps al_sleep et tu pourra aller y coder ton if FileExists(as_fichier) then...

erasorz · 17-04-2008 11:50:53

F1 a écrit:
Using a window object

This example causes the current time to be displayed in a StaticText control in a window. Calling Timer in the window's Open event script starts the timer. The script for the Timer event refreshes the displayed time.

In the window's Open event script, this code displays the time initially and starts the timer:
Code: pb
st_time.Text = String(Now(), "hh:mm")

Timer(60)
In the window's Timer event, which is triggered every minute, this code displays the current time in the StaticText st_time:
Code: pb
st_time.Text = String(Now(), "hh:mm")

mattdamon · 17-04-2008 12:06:45

merci les mecs ça marche bien avec l'event timer()

erasorz · 17-04-2008 12:13:47

mattdamon a écrit:
merci les mecs ça marche bien avec l'event timer()

=> n'oublie pas le [RESOLU]

mattdamon · 17-04-2008 12:18:26

Ah oui j'ai l'oublié

PB à toute heure et à tout moment. (à parcourir avec modération)

Annonce

#1 17-04-2008 09:59:53

[RESOLU] Surveiller mon repertoire

Code: pb

#2 17-04-2008 10:55:58

Re: [RESOLU] Surveiller mon repertoire

#3 17-04-2008 10:56:20

Re: [RESOLU] Surveiller mon repertoire

#4 17-04-2008 11:22:06

Re: [RESOLU] Surveiller mon repertoire

#5 17-04-2008 11:25:01

Re: [RESOLU] Surveiller mon repertoire

#6 17-04-2008 11:28:49

Re: [RESOLU] Surveiller mon repertoire

#7 17-04-2008 11:50:53

Re: [RESOLU] Surveiller mon repertoire

F1 a écrit:

Code: pb

Code: pb

#8 17-04-2008 12:06:45

Re: [RESOLU] Surveiller mon repertoire

#9 17-04-2008 12:13:47

Re: [RESOLU] Surveiller mon repertoire

mattdamon a écrit:

#10 17-04-2008 12:18:26

Re: [RESOLU] Surveiller mon repertoire

Pied de page des forums