comment faire une action répétée

Version imprimable

bonjour,

J'ai un programme dans lequel j'attend de recevoir un fichier donc pour cela j'ai utiliser ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
        If System.IO.File.Exists("C:\Documents and Settings\LM78bnv\My Documents\My Music\dossierTestEnvoie\test.txt") Then
 
 
            Dim NomFichier2 As String = "C:\Documents and Settings\LM78bnv\My Documents\My Music\dossierTestEnvoie\test.txt"
            Try
                'Ouverture du fichier et Ecriture du contenu du fichier sur la console
                sr = New StreamReader(NomFichier2)
                sLine = sr.ReadLine()
                TextBox1.Text = sLine
 
                While sLine Is Nothing
                       sLine = sr.ReadLine()
                End While
 
            Finally
                'Fermeture streamreader
                If Not IsNothing(sr) Then sr.Close()
                'Fermeture streamwriter
                If Not IsNothing(sw) Then sw.Close()
 
            End Try
 
        Else
 
            MsgBox("PAS DE FICHIER")
        End If

Mais je dois faire en sort que cette recherche de fichier continu pendant 15 sec dès l'activation de mon programme.

Je sais pas si cela est vraiment possible, si quelqu'un connait un solution je prenneur.

Merci d'avance

21/01/2009, 10h13
nikoko34

Bonjour,

Utilise un timer dont l'intervalle est de 15s
Dès l'activation de ton programme,ton timer est activé et la fois suivante qu'il est executé, tu le désactive.

Pour repérer si un fichier est placé à un endroit donné, voir du côté de la classe FileSystemWatcher et la méthode EnableRaisingEvents que tu actives au lancement de l'appli et que tu désactives en même temps que le timer.

plein de méthodes, ca dépend si tu veux optimiser ton code ou pas
le mieux étant un thread à part qui teste toutes les secondes si le fichier est là
c'est un peu équivalent au FileSystemWatcher, qui t'avertira quand un nouveau fichier sera créé

ou sinon de la meme manière que dans un thread séparé (et donc sur le thread pincipal donc moins bien) on peut faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 dim chrono as new system.diagnostics.stopwatch chrono.Start while true if not System.IO.File.Exists("chemin fichier") then ' si le fichier n'existe pas if chrono.elapsedmilliseconds > 15000 then ' si ca fait plus de 15 secondes qu'il n'existe pas MsgBox("PAS DE FICHIER") exit while ' on sort de la boucle end if thread.sleep (200) application.doevents continue while ' on repart au début de la boucle while end if ' traitement car fichier trouvé exit while ' traitement fait on sort de la boucle end while
dans un thread, on retirerais application.doevents et on mettrais thread.sleep(1000) parce que là c'est moyen

22/01/2009, 08h15
azräel

super ca marche merci beaucoup :)