Pb suppression fichier verrouillé en VB NET

Version imprimable

24/05/2016, 16h14
ILL20152000

Pb suppression fichier verrouillé en VB NET

Bonjour,

voici mon code pour changer la version d'un fichier PDF avec iTextSharp :
Try
Using pdfReader As New PdfReader(tbModifVersionPDFOriginale.Text)
' Attention, on peut upgarder mais pas downgrader de version PDF !
Using stamper = New PdfStamper(pdfReader, New FileStream(tbModifVersionPDFOriginale.Text & ".tmp.pdf", FileMode.Create), Mid(cbVersionPDF.Text, 3, 1))
stamper.Close()
stamper.Dispose()
End Using
pdfReader.Close()
pdfReader.Dispose()
End Using

File.Delete(tbModifVersionPDFOriginale.Text)
File.Move(tbModifVersionPDFOriginale.Text & ".tmp.pdf", tbModifVersionPDFOriginale.Text)
lbVersionPDF.Text = "Version PDF : " & cbVersionPDF.Text
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

Mais sur la ligne "File.Delete(tbModifVersionPDFOriginale.Text)", j'ai une erreur disant que "Le processus ne peut pas accéder au fichier '...pdf', car il est en cours d'utilisation par un autre processus".
J'ai déjà essayé de changer l'ordre des "Close", de mettre "pdfcReader=Nothing" au lieu de "Using .. End Using".

Je ne comprends pas car je pensai avoir bien fermer tous mes fichiers et libérer tous les flux par la fin de "Using"

Merci à toute personne qui pourrait voir l'erreur de code que je ne vois pas.
Cordialement.
24/05/2016, 17h29
ZenZiTone

Citation:

Envoyé par ILL20152000

J'ai déjà essayé de changer l'ordre des "Close", de mettre "pdfcReader=Nothing" au lieu de "Using .. End Using".

Je ne comprends pas car je pensai avoir bien fermer tous mes fichiers et libérer tous les flux par la fin de "Using"

Je me trompe peut-être mais il se peut que le close ne fasse que libérer la mémoire et non stopper le processus. Si tu mets un point d'arrêt juste avant d'exécuter le File.Delete() et qui tu regardes dans le gestionnaire des tâches tu devrait voir s'il est toujours ouvert.

Au passage, :tagcode:
25/05/2016, 09h13
ILL20152000

Merci de votre réponse.

Désolé mais dans le gestionnaire, je ne peux pas voir les fichiers ouverts - même dans la partie Gestion de l'ordinateur - Dossiers partagés - Fichiers ouvert, je ne le vois pas.
En mode debug, je vois bien que c'est mon programme qui verrouille mon fichier.

Désolé pour la balise, je vais y penser la prochaine fois.
Je dois remplacer le code

Code:

pdfReader.Close()

par quel code pour fermer le fichier "pdfReader" ?
NB : chose bizarre, si je répète plusieurs fois avec une pause de 10 secondes dans ce cas, j'ai un autre problème :
le code

Code:

File.Delete(tbModifVersionPDFOriginale.Text)

supprime les 2 fichiers PDF comme s'il y avait un lien !!
25/05/2016, 10h16
jopopmk

Salut,

pour savoir quel process lock un fichier tu peux utiliser ProcessExplorer (menu Find > Find handle et DLL ...).

Sinon le seul truc que je vois de suite c'est que tu initialises un FileStream sans jamais le clore.
Essaie de ressortir son initialisation et de caser l'objet dans une variable puis de faire un Close() dessus avant ton File.Delete().
25/05/2016, 10h21
ebastien

Bonjour,

Je ne connais pas PdfStamper mais peut-être faut-il libérer le FileStream aussi (c'est un IDisposable).

Merci pour ces pistes de recherche.
Mais "FileStream" concerne le fichier de destination ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim _fStream As New FileStream(tbModifVersionPDFOriginale.Text & ".tmp.pdf", FileMode.Create)
 
        Try
            Using pdfReader As New PdfReader(tbModifVersionPDFOriginale.Text)
                ' Attention, on peut upgarder mais pas downgrader de version PDF !
                Using stamper = New PdfStamper(pdfReader, _fStream, Mid(cbVersionPDF.Text, 3, 1))
                    stamper.Close()
                    stamper.Dispose()
                End Using
                pdfReader.Close()
                pdfReader.Dispose()
            End Using
            _fStream.Close()
            _fStream.Dispose()
            File.Delete(tbModifVersionPDFOriginale.Text)
            File.Move(tbModifVersionPDFOriginale.Text & ".tmp.pdf", tbModifVersionPDFOriginale.Text)
            lbVersionPDF.Text = "Version PDF : " & cbVersionPDF.Text
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

Avec un close et un dispose sur le FileStream, ce n'est pas mieux.

La solution que j'ai trouvée, mais qui n'est pas élégant :
- dépasser le fichier d'origine dans un dossier temporaire
- faire mon traitement sur ce fichier temporaire vers le chemin et nom d'origine
- à la fermeture de mon programme, supprimer tous les fichiers du dossier temporaire.

Mais j'aimerai quand même bien comprendre pourquoi le fichier reste ouvert ??

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
32
33
 
Private Sub fModifVersionPDf()
        If CInt(Mid(lbVersionPDF.Text, Len(lbVersionPDF.Text), 1)) = CInt(Mid(cbVersionPDF.Text, 3, 1)) Then
            MessageBox.Show("Attention c'est la même version !")
            Exit Sub
        End If
        If CInt(Mid(lbVersionPDF.Text, Len(lbVersionPDF.Text), 1)) > CInt(Mid(cbVersionPDF.Text, 3, 1)) Then
            MessageBox.Show("Désolé, je ne peux pas mettre ce fichier PDF dans une version plus ancienne !")
            Exit Sub
        End If
 
        Try
            Using _fStream As New FileStream(tbModifVersionPDFOriginale.Text & ".tmp.pdf", FileMode.Create)
                Using pdfReader As New PdfReader(tbModifVersionPDFOriginale.Text)
                    ' Attention, on peut upgrader mais pas downgrader de version PDF !
                    Using stamper = New PdfStamper(pdfReader, _fStream, Mid(cbVersionPDF.Text, 3, 1))
                        stamper.Close()
                    End Using
                    _fStream.Close()
                    pdfReader.Close()
                End Using
            End Using
            GC.Collect()
            Thread.Sleep(1000)
            File.Delete(tbModifVersionPDFOriginale.Text)
            File.Move(tbModifVersionPDFOriginale.Text & ".tmp.pdf", tbModifVersionPDFOriginale.Text)
            lbVersionPDF.Text = "Version PDF : " & cbVersionPDF.Text
            MessageBox.Show("Le traitement a bien été réalisé.")
        Catch ex As Exception
            MessageBox.Show(ex.ToString & vbCrLf & vbCrLf & "CELA VA RELANCER LE TRAITEMENT.")
            Call fModifVersionPDf()
        End Try
    End Sub

voici mon code (il faut valider une fois le message d'erreur et rappeler ma fonction, ensuite le traitement marche ?? - et même sans message d'erreur si l'on fait encore une modification sur le même fichier), c'est moins laid que mon ancienne solution.
va savoir pourquoi !
Je clore cette discussion.
Merci aux personnes qui ont essayées de m'apporter leurs aides.