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.
Merci beaucoup pour votre aide.
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
David
Partager