Bien utiliser FolderBrowserDialog

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Mon soucis est d'ouvrir la page d'accueil du FolderBrowserDialog sur une page différente que depuis le bureau. Je souhaite par exemple qu'il s'ouvre sur le disque 'disk' que j'impose par programme et depuis un répertoire donné : 'ABC'

Dans le programme ci-dessous :

Code:

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
Public Sub SuiteSave()
 
        Try
            ' Affiche formulaire et test choix du dossier
            If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                ' Récupère le chemin complet du dossier sélectionné
                Dim DossierSelection As String = FolderBrowserDialog1.SelectedPath
                ' Affiche le nom du dossier sélectionné
                PathSave = IO.Path.GetDirectoryName(DossierSelection) + "\" + IO.Path.GetFileName(DossierSelection)
 
                '' Affiche le chemin complet du dossier sélectionné 
                TextBox8.Text = DossierSelection
                ToolStripTextBox1.Text = PathSave
 
                'Enregistre dans le Fichier Tampon             
   Using monStreamWriter2 As StreamWriter = File.CreateText(FichierTampon3)
                    monStreamWriter2.WriteLine(PathSave)
                End Using
            Else
                ' Si l'utilisateur n'a pas sélectionné de dossier
                If Langue = "FR" Then MsgBox("Aucun dossier n'a été sélectionné", MsgBoxStyle.Exclamation, "Aucun dossier sélectionné") : Call InitAll() : Exit Sub
 
            End If
 
        Catch ex As Exception
            MessageBox.Show(ex.Message & "Stack Trace: " & vbCrLf & ex.StackTrace)
        End Try
 
    End Sub

J'obtiens ceci :

Pièce jointe 606343

Or que je voudrais que la page s'ouvre sur 'PC' et le root E:\ABC par exemple.

Merci pour vos conseils

A vous lire

10/10/2021, 11h08
Phil Rob

1 pièce(s) jointe(s)

Bonjour,

Si, avant d'afficher le FolderBrowserDialog, tu affectes la propriété SelectedPath avec le chemin du dossier auquel tu veux accéder, ce dossier sera sélectionné à l'affichage.
Je ne crois pas qu'on puisse faire mieux ...

J'espère que ça t'aidera ... :D

Pièce jointe 606344
10/10/2021, 18h29
excalybur

Super !

C'était si simple, ça marche nickel.

Un grand merci :D
17/10/2021, 22h46
excalybur

Malheureusement le système précédent est assez réducteur en effet il n'ouvre pas la page du répertoire finale.

Heureusement il y a beaucoup plus élégant :

[CODE]

ShowdialogOKCancel = choisir.ShowDialog()
If ShowdialogOKCancel = 1 Then ToolStripTextBox1.Text = choisir.FileName : Disk = Mid(choisir.FileName, 1, 2) 'ok
If ShowdialogOKCancel = 2 Then ...

C'est quand même plus ergonomique !
18/10/2021, 09h32
popo

On dit que la beauté est dans l'œil de celui qui la voit.
Mais moi j'ai du mal à trouver élégant un code lorsque que je vois un GOTO en plein milieu.
18/10/2021, 18h48
excalybur
Je viens de l'enlever puisque il ne sert à rien dans cet exemple partiel.
Il y a des cas ou goto est bien utile (voir exemples sur le net). Il est plus lisible d'écrire ceci :
Code:

1 2 3 4 5 6 7 ContinueTry: Try 'Worker code Catch ex as IO.IOException If MessageBox.Show(...) = DialogResult.Retry Then Goto ContinueTry Throw End Try
Plus sérieusement, ce n'est pas la question. ;)

Comme je l'ai dit précédemment, les goûts et les couleurs.....
Pour moi GOTO (et les variables globales même si c'est hors sujet) sont le mal absolu, et doivent être rigoureusement évités.

Pour moi ton exemple serait mieux ainsi:
Code:

1 2 3 4 5 6 7 8 9 10 11 Retry = True Do Try <statements> Retry = False Catch If (Message Box.Show(...) <> DialogResult.Retry) Then throw EndIf End Try Loop Until Retry = False
Edit : Simplification du IF

21/10/2021, 20h35
excalybur

Tout à fait d'accord avec toi le goto c'est la plaie dans 99% des cas surtout quand il est utilisé en ascenseur 'one way' inter routine !!!

D'ailleurs Microsoft donne toujours des exemples avec goto et il est pas près de disparaitre!