Discussion :

[Mario Rousson]

Bonjour

Lors du formload j'ouvre un pdf via un webbrowser qui est sur mon disque dur , si j'essai de charger une nouvelle version du fichier pour l'enregistrer sur le même nom j'ai un message d'erreur. j'ai essayé quelques expérience sans succès merci de votre soutiens

mon code

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
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If File.Exists("C:******.pdf") Then
            WebBrowser2.Navigate("C:******.pdf")
 
        End If
 
Private Sub TSBStart_Click(sender As Object, e As EventArgs) Handles TSBStart.Click
        If File.Exists("C:******.pdf") Then
          'L'Errreur ce situe au niveau du file.delete
            File.Delete("C:******.pdf")
        End If
        Dim Fl As String = "http:*******.pdf"
        Dim Chem As String = "C:******.pdf"
        Dim client As WebClient = New WebClient
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
        client.DownloadFileAsync(New Uri(Fl), Chem)
 
 
    End Sub

Informations supplémentaires*: Le processus ne peut pas accéder au fichier '"C:******.pdf", car il est en cours d'utilisation par un autre processus.

comment libérer le fichier pour pouvoir le remplacer

[sinople]

Je suppose qu'il suffit d'ouvrir une autre page dans le webbrowser avant de supprimer le fichier

Par contre il faut prévoir une gestion d'erreur un minimum propre dans la partie qui supprime le fichier car tu n'as aucun moyen de garantir qu'il n'y a pas un autre lock (ouverture du fichier pdf à la main par exemple).

Dans le cas d'affichage de fichier temporaire, la bonne pratique veux qu'on nomme chaque fichier différemment (avec un guid par exemple) dans un dossier spécifique et qu'on vide le dossier à la sortie de l'application par exemple.

[Mario Rousson]

donc en fouillant un peu sur developpez.com j'ai adapté ce bout de code et ça fonctionne

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
 If File.Exists("C:*******.pdf") Then
 
            WebBrowser2.Navigate("")
            My.Application.DoEvents()
 
 
            While IO.File.Exists("C:*******.pdf")
 
                Try
                    IO.File.Delete("C:*******.pdf")
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
 
                End Try
            End While
 
 
 
 
 
        End If

Merci à tous