Bonjour,

j'ai un petit problème. j'aissaye de déplacer un fichier d'un répertoire à un autre, mais il me dit que le fichier est utilisé par un autre procès et ne me laisse pas le désplacer.

Je met mon bout de code.
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
22
23
24
25
26
27
28
29
30
31
 
            Try
 
                For Each MonFichier As String In My.Computer.FileSystem.GetFiles( _
                            PathImg_Ori, _
                            FileIO.SearchOption.SearchAllSubDirectories, _
                            "*.*") '"*.jpg")
 
                    ... 
 
                    If FichierSource <> "" Then
			'là est mon erreur !!!!
			'Le fichier est utilisé par un autre procès
                        My.Computer.FileSystem.MoveFile(FichierSource, FichierDestination, True)
                    End If
 
                    If MonFichier <> "\Thumbs.db" Then
                        ...
			'C'est dans cette procédure que j'informe FichierSource et FichierDestination
                        Traiter(MonFichier) 
                    End If
                    Application.DoEvents()
                    Me.BackgroundWorker1.ReportProgress((Cpt / MaxColTable) * 100)
                    Cpt = Cpt + 1
                    ClearMemory()
 
                Next
 
            Catch oe As Exception
                MessageBox.show(oe.Message, MsgBoxStyle.Critical)
            End Try
Merci beaucoup pour votre aide.

David