Fermer PDF WebBrowser

Bonjour !

Je m'arrache les cheveux depuis un petit moment pour fermer un fichier PDF dans le WebBrowser1 afin que je puisse le renommer.

Explication : Mon programme consiste a chercher un fichier qui commence obligatoirement par "tmp42..." (exemple : tmp42032sdf.pdf), on le visualise, on confirme le nouveau nom pour le renommer puis je veux fermer le pdf utilisé dans le WebBrowser pour enfin vraiment le renommer.

voici mon 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 32

Imports System.IO   Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Nom As String Dim D As Date = Now Dim Fich As String Dim Ext As String   Fich = FileSystem.Dir("C:\transfert\tmp42*") Ext = GetExtension("C:\transfert\" & Fich) If TextBox1.Text = "" Then MsgBox("Erreur : impossible de renommer votre fichier.") Else Nom = D.ToString("yyyy-MM-dd" & "_" & TextBox1.Text) WebBrowser1.Stop() My.Computer.FileSystem.RenameFile("C:\transfert\" & Fich, Nom & Ext) Application.Exit() End If End Sub   Private Function GetExtension(ByVal path As String) As String Return New System.IO.FileInfo(path).Extension End Function   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Fichier As String Fichier = FileSystem.Dir("C:\transfert\tmp42*") WebBrowser1.Navigate("C:\transfert\" & Fichier) End Sub   End Class

---

Le debug m'explique je peux pas le renommer car le processus est deja ouvert !

il cible le probleme ici

Code:

---

My.Computer.FileSystem.RenameFile("C:\transfert\" & Fich, Nom & Ext)

---

Je sais pas si je suis clair ( c'est probablement la fatigue ^^'), je préciserais mieux si besoin est !

En vous remerciant d'avance ! :D

alors je continu de chercher, mon problème a-t-il un rapport avec le stream du pdf ?

Bonjour,
si tu ferme ton application après le renommage du fichier, tu peux libérer le WebBrowser :

Code:

---

1 2 3 4 5

Nom = D.ToString("yyyy-MM-dd" & "_" & TextBox1.Text) WebBrowser1.Dispose() Wait(2) My.Computer.FileSystem.RenameFile("C:\transfert\" & Fich, Nom & Ext) Application.Exit()

---

et lui laisser un peu de temps pour libérer toutes les ressources :

Code:

---

1 2 3 4 5 6

Private Sub Wait(ByVal seconds As Integer) Dim start As DateTime = DateTime.Now While start.AddSeconds(seconds) >= DateTime.Now Application.DoEvents() End While End Sub

---

Autrement il y a le contrôle AxAcroPDF d'Adobe qui semble mieux adapté :
avec .LoadFile pour charger le fichier, suivit du renommage, sans à avoir à libérer des ressources ou fermer l'application, semble t'il.
A voir.

Ok je vais tester tout ça, je te remercie et je te tiens au courant ! :D

EDIT: A priori, la première solution marche nickel chrome ! Je vais continuer mon programme et explorer en cas la deuxième idée, Merci !

Nouvelle petite question le webbrowser accepterait-il de visualiser des .tif ?

EDIT: Je vais poster sur une nouvelle discussion, le sujet devient différent ^^
Je vais donc considérer cette discussion comme résolue :D