Bonjour,

Petite question de débutant à nouveau:

Je réceptionne un fichier dans un répertoire. Lorsqu'il est en place, je le traite avec un logiciel d'image (nconvert). Puis je veux le déplacer dans un autre répertoire. Or je ne sais pas comment faire en sorte d'attendre que le traitement de l'image ait fini pour le déplacer.

Pour l'instant que suis arrivé à cela qui ne marche pas puisque, je suppose, j'entre dans une boucle infinie:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub FileSystemWatcher2_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher2.Created
        Dim nomfichier2 As String
        Dim exep As String
 
        nomfichier2 = e.Name
        FileSystemWatcher2.WaitForChanged(IO.WatcherChangeTypes.Created, 100)
        Shell("c:\nconvert.exe -out jpeg -xflip -rotate 90 -crop " + hauteurA + " " + hauteurB + " " + largeurA + " " + largeurB + " -resize 350 400 -efocus -autolevels -noise reduce -overwrite C:\photosjpg\Photostemp\" + nomfichier2)
        FileSystemWatcher2.WaitForChanged(IO.WatcherChangeTypes.Changed, 100)
        If File.Exists("C:\photosjpg\Photosacontroler\" + e.Name) Then
            File.Delete(("C:\photosjpg\Photosacontroler\" + e.Name))
        End If
        exep = ""
        Do
            Try
                File.Move("C:\photosjpg\Photostemp\" + e.Name, "C:\photosjpg\Photosacontroler\" + e.Name)
            Catch ex As IOException
                exep = ex.ToString
              '  MsgBox(ex.ToString)
            End Try
        Loop Until exep = ""
    End Sub
Quelqu'un saurait'il comment faire?

Merci