Boucle d'action precise

Bonsoir à tous !

Voilà, je suis sur un nouveau logiciel (eh oui, j'ai tout le temps des problemes xD).

Il est simple, enfaite ce que j'aimerai faire, c'est que lorsqu'on clique sur un bouton, il s'enclenche, et affiche un Msgbox une fois que tel fichier est présent dans tel dossier, je m'explique :

J'ai, sur ma form, 2 CommandButton appellés Cmd et Cmd2.
Cmd ===> Bouton pour démarrer l'analyse jusqu'à trouver le fichier
Cmd2 ===> Pour stopper l'analyse.

J'ai aussi 2 Timers.
Ils ont le même but, rechercher un fichier à un chemin précis.

J'ai aussi 2 modules pour les recherche de fichiers.


Je vous presente mon code, qui sera sans doute plus explicite que tout ce blabla.

- Dans le bouton démarrer :

Code:

---

1 2 3

Private Sub cmd_Click() Timer1.Enabled = True End Sub

---

Il enclenche donc le Timer1.


- Dans le Timer1 :

Code:

---

1 2 3 4 5 6

Private Sub Timer1_Timer() Dim sz As String     sz = FichierExiste("C:\Program Files\eChanblard\Incoming\test.txt") End Sub

---

Il recherche un certains fichier, grâce au chemin indiqué, et se sert du module1.


- Dans le Timer2 :

Code:

---

1 2 3 4 5 6

Private Sub Timer2_Timer() Dim i As String     i = FichierExiste2("D:\Program Files\eChanblard\Incoming\test.txt") End Sub

---

Il fait de même, avec le module2.


- Dans le module 1, il y a :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Function FichierExiste(ByVal Nom As String) As String Dim attrib As Integer On Error Resume Next attrib = GetAttr(Nom) If (Err <> 0) Then Timer2.Enabled = True Timer1.Enabled = False Else If ((attrib And vbDirectory) = vbDirectory) Then   FichierExiste = False   Else MsgBox "trouvé !!"         End If End If End Function

---

Il recherche le fichier, s'il ne le trouve pas, il passe au timer2, sinon il affiche un MsgBox.


- Dans le module2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Function FichierExiste2(ByVal Nom As String) As String Dim attrib As Integer On Error Resume Next attrib = GetAttr(Nom) If (Err <> 0) Then Timer1.Enabled = True Timer2.Enabled = False Else If ((attrib And vbDirectory) = vbDirectory) Then   FichierExiste2 = False   Else MsgBox "trouvé"         End If End If End Function

---

Il fait la même chose, sauf que si lui ne le trouve pas, il passe au timer1.


Donc je pense que vous avez saisi à peu pres le projet.



Le probleme est le suivant :

Lorsque je clique Cmd qui enclenche le timer1, tout vas bien, mais quand je vais dans le dossier specifié et que je crée un nouveau fichier nommé "test.txt", il ne me le detecte pas.

Qu'est ce qui ne va pas dans mon code svp ?

Je sais que ma manière est compliquée, et il existe surement plus simple en utilisant une chaine...

Merci d'avance.
Bonne soirée

Pablo

Gné ????

Comprends rien à ce que tu manigances ainsi ...8O

Attends un peu ...
Tu écris :

Citation:

---

Ils ont le même but, rechercher un fichier à un chemin précis.

---

Tu connais donc le chemin (à moins que tu ne t'exprimes mal...)

A quoi diable peuvent servir des timers dans une telle petite affaire où même l'utilisation de la fonction Dir suffirait à retourner immédiatement l'existence ou l'absence du fichier recherché...?????
Comprends pas...
Il va falloir que tu t'expliques calmement et simplement (trop est l'ennemi du bien, en général).

Recommence tes explications de façon concise et claire, s'il te plait ...

Edit( :
Chercherais-tu à dire que tu veux contrôler périodiquement si tel ou tel autre fichier a été créé (par une autre application que la tienne) dans un répertoire spécifié ? Si oui : un seul timer suffit et la chose est fort simple ...

Je sais que je me suis compliqué la vie, et que ce que je veux faire est simplissime, donc je résume :

Je veux tout simplement, qu'avec l'aide d'un timer, celui-ci cherche tres rapidement et en boucle, si le fichier test.txt est présent dans le chemin que j'ai indiqué, et que si il le trouve, qu'il affiche un message.

C'est juste pour faire un ptit test.

Bonjour,

Fais ce test là avec un seul bouton de commande et un seul timer (il n'en faut pas plus !)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private monfic As String   Private Sub Command1_Click() monfic = "essai.txt" Timer1.Enabled = True End Sub   Private Sub Timer1_Timer() If Dir("C:\" & monfic) <> "" Then MsgBox "fichier trouvé dans C:\" Timer1.Enabled = False Exit Sub ElseIf Dir("D:\" & monfic) <> "" Then MsgBox "fichier trouvé dans D:\" Timer1.Enabled = False End If End Sub

---

en remplaçant bien évidemment par tes chemins à toi, hein ?

Ceci étant dit :
Si, au bout du compte, tu ne sais pas où se trouve, sur la machine finale, le répertoire de Program Files (et que c'est donc la raison pour laquelle tu cherches sur C puis sur D), tu devrais faire une petite recherche sur ce forum et utiliser tout bêtement la fonction Environ !!!
Tu éviterais ainsi de faire un double test et tu irais directement chercher périodiquement (ton Timer) dans ce seul répertoire !!!!

Citation:

---

mais je veux que quand il ne trouve pas le fichier, il se taise, et recommence la main d'oeuvre jusqu'à le trouver.

---

Et ????
C'est exactement ce qu'il fait !!!!!!!
Tu n'as alors même pas essayé !

Edit : Tiens ! ton message a disparu ...:lol:

Edit :

Regarde ce qu'affiche ceci, par( exemple :

MsgBox Environ$("ProgramFiles")

Comme quoi, un problème correctement posé est généralement à moitié résolu :)

Oui j'avais pensé à ce code, mais je l'avais fait d'une autre manière, la syntaxe était mauvaise.

Là ça marche.

Merci, et désolé de vous avoir dérangé pour une chose aussi facile =)

A bientôt