Déplacer un fichier.

Version imprimable

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:

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

22/11/2013, 20h33
tomlev

Quel est le fichier pour lequel ça se produit ?
22/11/2013, 21h20
Dramon

Déplacer un fichier.

Salut Tomlev,

C'est sur le fichier source que j'ai mon erreur, il ne me laisse pas le déplacer dans le répertoire destination.

Merci.

David
22/11/2013, 21h53
tomlev

Ce n'est pas ça que je demandais... Comment s'appelle le fichier ? Est-ce que c'est un fichier que ton application a ouvert à un moment donné ?
24/11/2013, 11h38
Dramon

Déplacer un fichier.

Désolé je n'avias pas compris ce que tu me demandais.
C'est un simple fichier .jpg que je viens de lire dans ma boucle.
24/11/2013, 12h49
tomlev

Citation:

Envoyé par Dramon

C'est un simple fichier .jpg que je viens de lire dans ma boucle.

Et tu n'aurais pas oublié de le fermer par hasard ? Tu fais quoi avec exactement ?

Déplacer un fichier.

Dans ma procédure je fais ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        Dim pict As Image
        pict = Image.FromFile(TempPath_Ori)
        'PictureBox1.Image = pict
 
        T_Hauteur = pict.Height
        T_Largeur = pict.Width 
 
        Facteur_Hauteur = T_Hauteur / T_Standard
        Facteur_Largeur = T_Largeur / T_Standard
 
        If Facteur_Hauteur > 1 Or Facteur_Largeur > 1 Then
            'Je calcule les nouvelles dimensions, pour créer une nouvelle image plus petite
            ...
            Dim imagen As New Bitmap(New Bitmap(TempPath_Ori), TLatgeur_Final, TAuteur_Final)
            imagen.Save(TempPath_Dest, System.Drawing.Imaging.ImageFormat.Jpeg)
 
            imagen.Dispose()
            pict.Dispose()
        Else
            FileCopy(TempPath_Ori, TempPath_Dest)
        End If

j'ai mis un imagen.dispose et un pict.dispose.
Je dois faire quelque chose d'autre?

C'est le New Bitmap(TempPath_Ori) qui n'est pas disposé

Le plus simple est d'utiliser un bloc Using :

Code:

1
2
3
4
        Using originalBitmap = New Bitmap(TempPath_Ori), _
              imagen As New Bitmap(originalBitmap, TLatgeur_Final, TAuteur_Final)
            imagen.Save(TempPath_Dest, System.Drawing.Imaging.ImageFormat.Jpeg)
         End Using

25/11/2013, 08h16
Dramon

Déplacer un fichier.

Bonjour Tomlev,
Ça marche parfaitement maintenand.
Merci pour ton aide.

David