Configurer OpenFileDialog

Messages postés
2
Date d'inscription
mercredi 29 août 2018
Dernière intervention
30 août 2018
- 29 août 2018 à 11:25 - Dernière réponse :
Messages postés
5531
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2018
- 30 août 2018 à 08:00
Salut tout le monde
Dans Visual Studio, lorsque vous sélectionnez un dossier pour un projet, une boîte de dialogue qui ressemble à OpenFileDialog ou SaveFileDialog s'affiche, mais est configurée pour accepter uniquement les dossiers. Depuis que j'ai vu ça, j'ai voulu savoir comment ça se passe. Je connais le FolderBrowserDialog, mais je n'ai jamais vraiment aimé ce dialogue.
Est ce que il y a un moyen pour configurer OpenFileDialog pour avoir ce comportement ?
Merci d'avance
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
5531
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2018
- 29 août 2018 à 11:49
Messages postés
2
Date d'inscription
mercredi 29 août 2018
Dernière intervention
30 août 2018
- 30 août 2018 à 03:40
Merci beaucoup cs_Le Pivert pour votre aide mais dans ce cas le bouton Ouvrir sur la boite de dialogue OpenFileDialog ouvre le dossier , je veux qu'il sélectionne le dossier afin de récupérer son chemin d’accès. j'arrive pas à résoudre ce problème
je suis débutant sur vb.net je connais juste quelque notions de base
Messages postés
5531
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 novembre 2018
- 30 août 2018 à 08:00
il faut savoir que

OpenFileDialog ouvre un fichier

et que FolderBrowserDialog ouvre un dossier

il ne faut pas mélanger les 2!

si j'ai bien compris tu veux sélectionner un fichier pour avoir le chemin du dossier dans lequel il se trouve:

Option Strict On
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ofnDialog As New OpenFileDialog
        With ofnDialog
            .Filter = "Tout fichiers(*.*)|*.*"
            .FilterIndex = 1
            If .ShowDialog() = DialogResult.OK Then
                MessageBox.Show(.FileName) 'chemin complet
                MessageBox.Show(FolderFromFileName(.FileName)) 'chemin dossier 
                .Dispose()
            Else
                MessageBox.Show("Opération annulée par l'utilisateur.", "Ouvrir fichier", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If
        End With
    End Sub
    'chemin dossier
    Public Function FolderFromFileName _
   (ByVal FileFullPath As String) As String
        Dim intPos As Integer
        intPos = FileFullPath.LastIndexOfAny(CType("\", Char()))
        intPos += 1
        Return FileFullPath.Substring(0, intPos)
    End Function
End Class


voilà
Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.