Déplacer fichier en cours d'utilisation

Version imprimable

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:

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

Citation:

FileSystemWatcher2.WaitForChanged(IO.WatcherChangeTypes.Changed, 100)

100 millisecondes c'est pas un peu court comme timeout?

Code:

1
2
3
4
5
6
7
Try
                File.Move("C:\photosjpg\Photostemp\" + e.Name, "C:\photosjpg\Photosacontroler\" + e.Name)
            Catch ex As IOException
                exep = ex.ToString
              '  MsgBox(ex.ToString)
             System.Thread.Sleep(1000) 'j'attend 1 seconde avant de ressayer
            End Try

05/09/2011, 17h32
pierregr

Disons que je réitère l'opération plusieurs fois, donc que je ne peux pas attendre 1 seconde à chaque fois. De plus, je ne peux pas me permettre de compter sur le timeout sachant que l'application va être installée sur différents ordinateurs donc avec des délais différents pour chacun.
05/09/2011, 17h40
BenoitM

ben ici j'ai un doute que ton FileSystemWatcher2.WaitForChanged(IO.WatcherChangeTypes.Changed, 100)
servent sauf si l'opération prend moins de 100 millisecondes

et tu boucles en permanance sur le move pas très optimiser...

Je suppose que tu sais combien de temps prendre +- l'opration
si c'est en général 1 sec je mettrai un timeout de 10 sec

tu fais un test du result du FileSystemWatcher2.WaitForChanged(IO.WatcherChangeTypes.Changed, 10000)
si sorti par le timeout message pour avertir que nconvert n'a pas réussi
29/09/2011, 10h10
pierregr

Bonjour,

merci pour l'info, je pensais que le Waitforchange était justement là pour attendre la fin de l'opération. De toutes façons, j'ai contourné le problème en externalisant la procédure complètement dans un batch.