fichier occupé par un processus file.delete()

Bonjour, à tous

J'ai l'erreur suivante lorsque je souhaite effacer des fichiers "jpg" sur un dossier ayant toutes les autorisations.

"Le processus ne peut pas accéder au fichier xxxxxxxx car il est en cours d'utilisation par un autre processus."

Remarque : avant d'éffacer les fichiers j'ai crée des images redimensionnées et sauvegarder ous un autre nom.

Voici mon code :

PrivateSub CreatImg(ByRef RefInt AsString, ByRef RefAnno AsString, ByRef image AsInteger, ByRef imageB AsInteger, ByRef Lmage AsInteger)

' On va fournir une image avec une hauteur et Largeur X et Y, et fixer la largeur de la miniature (en pixel),

'RefInt 'nom de l'image initiale

'RefAnno 'Référence LM de l'annonce VO

'Lmage 'On fixe la largeur de l'image

'image 'nombre de photo pour ce VO

'imageB 'nombre de photo encours pour ce VO

Dim MonRepertoirePhysique AsString = Application("CheminAppli") & "\images\" 'chemin de stockage des photos
Dim di As DirectoryInfo = New DirectoryInfo(MonRepertoirePhysique)
Dim fi As FileInfo()
fi = di.GetFiles(RefInt & "_*" & "_" & FormatImg & ".jpg") ' images planetVO

If fi.Length > 0 Then

   Dim fi2 As FileInfo

   Dim TabImage(image) AsString'Création d'un tableau pour inscrire le nom des images éxistantes

   Dim i AsInteger = imageB + 1

   ForEach fi2 In fi  'Récupération des images du VO
         TabImage(i) = fi2.Name 'Inscription dans le tableau
           i += 1
   Next

Dim HauteurImage AsInteger'Pour ernregistrer la hauteur calculée de l'image

      For i = imageB + 1 To image 'Création des miniatures
         Dim bmp AsNew System.Drawing.Bitmap(MonRepertoirePhysique & TabImage(i))

            ' la hauteur de la miniature se calcule alors en proportion
            HauteurImage = (bmp.Size.Height * Lmage / bmp.Size.Width) 'la Hauteur est calculée
             bmp = bmp.GetThumbnailImage(Lmage, HauteurImage, Nothing, IntPtr.Zero)
            bmp.Save(MonRepertoirePhysique & RefAnno & "-" & i & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ' Sauvegarde de l'image
            bmp.Dispose()
      Next

EndIf

EndSub

'Suppression des images originales importées

PrivateSub SupImgImport(ByVal RefInt AsString)

Dim di AsNew DirectoryInfo(Application("CheminAppli") & "\images\")

Dim fi As FileInfo()

fi = di.GetFiles(RefInt & "_*" & "_" & FormatImg & ".jpg")

' image planetVO

'If fi.Length = 0 Then fi = di.GetFiles("*_" & RefInt & "_*.jpg") ' image dcs

Dim fi2 As FileInfo

IfNot ((fi2.Attributes And FileAttributes.ReadOnly) = 0) Then

fi2.Attributes = fi2.Attributes

AndNot FileAttributes.ReadOnly

EndIf

ForEach fi2 In fi     ' l'erreur se produit ici ou ...

fi2.Delete()  ' l'erreur se produit ici.

Next

EndSub
Merci d'avance pour vos conseils éclairés

Thierry

Merci Cyril, je vais essayer et je te tiens au courant.
A+

Thierry

réponse tardive, désolé

En effet maintenant tout fonctionne.

Merci encore

Thierry