none
afficher le nom du dossier RRS feed

  • Question

  • bonjour, je voudrais savoir comment je peux afficher le non du dossier avec FolderBrowserDialog dans le textbox1.text.

    exemple: C:\Users\zorro591\Desktop\BONJOUR

    quand j'ouvre mon dossier BONJOUR , il m ' affiche dans mon textbox1.text = le nom du dossier => BONJOUR

    voici mon code:

    Dim dialog As New FolderBrowserDialog
            If (dialog.ShowDialog = DialogResult.OK) Then
                TextBox1.Text = dialog.SelectedPath

    pouvez-vous m'aider merci.

    jeudi 14 novembre 2013 05:48

Réponses

Toutes les réponses

  • Bonjour,

    Si la réponse t'est utile tu peux voter favorablement (haut, gauche de la réponse).

    Voici le code :

    '
    If OpenFileDialog1.ShowDialog = DialogResult.OK Then TextBox1.Text = OpenFileDialog1.FileName
    '
    '
    ' TOUTE LA SEQUENCE PAR EXEMPLE
    '
    Dim f As String
    OpenFileDialog1.Title = "Choix du fichier à ouvrir ?"
    OpenFileDialog1.Filter = "fichier Texte|*.txt|fichier Pégase|*.peg"
    OpenFileDialog1.DefaultExt = "txt"
    OpenFileDialog1.Multiselect = False
    OpenFileDialog1.FileName = ""
    If OpenFileDialog1.ShowDialog = DialogResult.OK Then
     f = OpenFileDialog1.FileName
     Try
       ' Si f existe = Demande si écrasement
       ' si écrasement refusé goto fin
       ' Enregistrement en écrasement de f
      Catch ex As Exception
       Dim m as string = "ERREUR sur fichier" & vblf & f & vblf
       MsgBox(m & Err.Number & vbLf & Err.Description, vbCritical)
     End Try
    End If
    fin: OpenFileDialog1.Dispose()

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    jeudi 14 novembre 2013 06:56
  • Si c'est uniquement le nom du dossier (et pas son chemin complet) :

    TextBox1.Text = System.IO.Path.GetDirectoryName(dialog.SelectedPath)


    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    jeudi 14 novembre 2013 08:40
  • Suite,

    Si la réponse t'est utile tu peux voter favorablement (haut, gauche de la réponse).

    Pour rester dans le même code, si tu veux seulement le nom du fichier, c'est :

    If OpenFileDialog1.ShowDialog = DialogResult.OK Then TextBox1.Text = OpenFileDialog1.SafeFileName

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    jeudi 14 novembre 2013 09:24
  • Merci richard clark, pour votre réponse.

    voici le code modifier pour afficher le nom du dossier :

    Dim dialog As New FolderBrowserDialog
    If (dialog.ShowDialog = DialogResult.OK) Then
    TextBox1.Text = System.IO.Path.GetFileName(dialog.SelectedPath)

    une dernière question : j'ai un dossier qui s'appelle : ex: calculeux-de_mot

    j'ouvre mon dossier , il m'affiche le nom complet du dossier dans textbox1.text => calculeux-de_mot

    si,c'est possible afficher juste dans textbox1.text => calculeux, limiter a 9 lettre. Avec le code qui est au dessus.

    j'ai essayer ce code dans textbox1.text : textbox1.maxlength = 9 mais il fonctionne pas . comment je peux faire pour afficher le mot limiter a 9 lettre.

    merci de votre aide.

    ps : Joseph Attila PUSZTAY , merci pour votre réponse mais c'est pas avec openfilediolog ce que j'ai demander. DSL


    jeudi 14 novembre 2013 10:38
  • System.IO.Path.GetFileName(dialog.SelectedPath).SubString(0,9)

    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    • Marqué comme réponse zorro591 jeudi 14 novembre 2013 10:53
    jeudi 14 novembre 2013 10:43
  • merci, Richard Clark pour votre réponse.
    jeudi 14 novembre 2013 10:53