Discussion :

[excalybur]

Bonjour,

Meilleurs voeux à tous et une excellent santé pour 2022 !

Mo problème : J'ai besoin de récupérer le chemin du répertoire de mes fichiers. Exemple de ce que je veut récupérer dans un OpenFileFolder est D:\abc\xyz\

Le programme ci-dessous va me donner D:\abc\xyz\CHENE.TXT car la sélection se fait lorsque l'on clique sur le fichier. Ceci est un problème qui oblige l'opérateur à faire une manipulation de plus sans logique avec ce qu'il doit faire : obtenir le répertoire final.

Ce que je n'arrive pas à faire de façon simple : obtenir le répertoire final en trois cliques : le 1er pour sélectionner le disque, le 2ème pour sélectionner le répertoire abc et 3ème pour sélectionner le répertoire xyz, puis sélection le bouton1 pour sauvegarder le root et fermer OpenFileFolder par programme.

Mes recherches diverses (puisqu'il n'existe pas OpenFileFolder pour VB.net !) :
j'ai regardé vers TreeView qui le permet au travers d'une usine à gaz (250 lignes de programme) : https://www.dreamincode.net/forums/t...file-explorer/
Bref ça marche très bien (ne pas oublier d'importer la class à créer(!). C'est très joli mais très lourd pour un petit programme.

Il y a surement beaucoup plus simple pour mon cas.

Mo code actuel dasn un sub :

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
Dim ShowdialogOKCancel As Integer
 
        Dim choisir As New OpenFileDialog   
 
                 'choisir le fichier à lire ok ou cancel
            ''VERSION ORIGINALE :
            ShowdialogOKCancel = choisir.ShowDialog()
            If ShowdialogOKCancel = 1 Then
                ToolStripTextBox1.Text = choisir.FileName
                Disk = Mid(choisir.FileName, 1, 2) 'ok
            End If
            If ShowdialogOKCancel = 2 Then
                Call InitAll()
                Exit Sub 'cancel
            End If
 
            'identifie le chemin complet 
            PathName = Path.GetDirectoryName(choisir.FileName)

Quid avec FolderBrowserDialog ?

Merci d'avance pour vos idées.

A vous lire

[sevyc64]

Quid avec FolderBrowserDialog ?

C'est ce qu'il faut utiliser.

C'est l'équivalent du OpenFileDialog pour les dossiers.

[excalybur]

Bonsoir sevyc64,

Oui et non selon la littérature. Mais c'est bien oui est la réponse ! Tu as raison.

En fait en relisant et en m’inspirant de l'excellent tutorial https://www.dreamincode.net/forums/t...file-explorer/ j'ai fini par comprendre un certains nombres de ficelles et j'ai re-écrit ma routine ainsi :

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
    Private Sub btnBrowse_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles BtnBrowse.Click
        'Créer un box dialog folder (répertoire)
        Dim objFolderDialog As New FolderBrowserDialog()
        'Passer object à Parameter et  obtenir Selected network folder
        TxtPath.Text = GetNetworkFolders(objFolderDialog)
    End Sub
    Public Shared Function GetNetworkFolders(ByVal FolderBrwDlg _
        As FolderBrowserDialog) As String
        'Obtenir le type du Folder Dialog bog
        Dim type As Type = FolderBrwDlg.[GetType]
        If FolderBrwDlg.ShowDialog() = DialogResult.OK Then
            Return FolderBrwDlg.SelectedPath
        Else
            Return ""
        End If
    End Function

Le bouton est pour l'illustration, on le remplacera par ses propres commandes dans son programme.

Il suffit de récupérer la valeur de TxtPath.Text et cela fonctionne sans faire une usine à gaz.

Une sorte de "openFolderDialog" light mais efficace.

[Phil Rob]

Bonsoir

Compte tenu de ta demande initiale, je crois que le FolderBrowserDialog qui permet le choix d'un dossier est plus efficace (pour les dossiers) que l'OpenFileDialog qui nécessite le choix d'un fichier pour permettre ensuite l'extraction du Path.

....

[excalybur]

Merci à tous, ça marche très bien et je voudrais savoir s'il est possible dans le nouveau programme que j'ai écrit ci-dessous de déployer le contenu du disque que j'ai sélectionné avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objFolderDialog.SelectedPath = Disk

afin de gagner un clique à la sélection du répertoire ad'hoc.

L'ajout de "\*.*" ne fonctionne pas, c'est logique puisque l'on ne travail pas dans les fichiers mais dans les répertoires uniquement.

Mon code actuel :

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
22
23
24
25
26
27
28
29
30
31
 
        Dim Resultat As String
 
        Try
            'si disk non défini :
            If Disk = "" Then Disk = Mid(Directory.GetDirectoryRoot(ProgramPath), 1, 2)  'example disk = "d:"
 
            'Créer un box dialog folder (répertoire)
            Dim objFolderDialog As New FolderBrowserDialog()
 
            'supprime la possibilité de créer un répertoire
            objFolderDialog.ShowNewFolderButton = False
 
            'sélectionne le disque validé plus haut
            objFolderDialog.SelectedPath = Disk
 
            Dim result As DialogResult = objFolderDialog.ShowDialog()
 
            'si OK 
            If result = DialogResult.OK Then Resultat = objFolderDialog.SelectedPath
            If result = DialogResult.No Then Exit Sub
 
            PathName = Mid(Resultat, 3)
            Disk = Mid(Resultat, 1, 2)
 
            'chemin complet visible
            ToolStripTextBox1.Text = Disk + PathName 
 
            'Clean up
            objFolderDialog.Dispose()
            objFolderDialog = Nothing

A vous lire.