ouvrir un fichier du disque dur!

Question

bonjour...

je n'arrive pas à ouvrir des fichiers qui sont sur le disque dur...je voudrais une petite aide pour savoir ce qui m'echappe....et voici mon code:

 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim dialogOpen As New OpenFileDialog
        With dialogOpen
            .InitialDirectory = "C:" 
            .Title = "Choisir un fichier" 
            .Filter = "Fichiers pDF(*.pdf)|*.pdf" 'filtre, seules les fichiers LDF apparaîtront
            .ShowDialog() ' on ouvre la boite de dialogue enfin
            'Retour après la fermeture de la boite de dialogue
            If Err.Number = 32755 Then Exit Sub 'le bouton 'annuler' a t'il été cliqué?
            If Len(.FileName) = 0 Then Exit Sub 'aucun choix
            Dim sFile As String = .FileName 'nom du fichier choisi ( avec extension)
            FileOpen(1, sFile, OpenMode.Input)
        End With

    End Sub

 

tout ce passe tres bien mais les fichiers ne s'ouvrent pas.....

et merci infiniment d'avance.

Answer 1

Bonjour,

 

Pour ouvrir un fichier sur le disque, la méthode la plus simplre consiste à utiliser la méthode utilitaire Process.Start.

Voici une solution se basant sur votre code et que j'ai pu tester :

 

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dialogOpen As New OpenFileDialog
        With dialogOpen
            .InitialDirectory = "C:"
            .Title = "Choisir un fichier"
            .Filter = "Fichiers pDF(*.pdf)|*.pdf" 'filtre, seules les fichiers LDF apparaîtront
            .ShowDialog() ' on ouvre la boite de dialogue enfin
            'Retour après la fermeture de la boite de dialogue
            If Err.Number = 32755 Then Exit Sub 'le bouton 'annuler' a t'il été cliqué?
            If Len(.FileName) = 0 Then Exit Sub 'aucun choix

            Dim sFile As String = .FileName 'nom du fichier choisi ( avec extension)
            Dim startProcessInfo = New ProcessStartInfo(sFile, String.Empty)
            Process.Start(startProcessInfo)
        End With
    End Sub

 

Cordialement. 

Answer 2

merci infiniment ....ça marche comme sur des roulettes.

il manquait ce fameux process start.

encore une fois merci.