Comment spécifier le chemin en utilisant la boîte de dialogue Ouvrir le fichier vb.net Je ne sais pas.

dans le premier début de mon application, je dois spécifier un chemin pour y enregistrer quelques fichiers. Mais dans le dialogue Ouvrir fichier, il semble que je doive sélectionner un fichier à ouvrir. Comment puis-je spécifier un dossier sans l'ouverture d'un fichier comme C:config

Voici mon code 

If apppath = "" Then
        Dim fd As OpenFileDialog = New OpenFileDialog()
        fd.Title = "Select Application Configeration Files Path"
        fd.InitialDirectory = "C:"
        fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
        fd.FilterIndex = 2
        fd.RestoreDirectory = True
        If fd.ShowDialog() = DialogResult.OK Then
            apppath = fd.FileName
        End If
        My.Computer.FileSystem.WriteAllText(apppath & "apppath.txt", apppath, False)
    End If

j'ai besoin de sélectionner un fichier pour qu'il fonctionne, mais je veux juste sélectionner un dossier. Alors quelle est la solution?

8
demandé sur Coral Doe 2012-07-13 10:27:48

4 réponses

vous voulez utiliser la classe FolderBrowserDialog au lieu de la classe OpenFileDialog . Vous pouvez trouver plus d'informations à ce sujet ici:

http://msdn.microsoft.com/en-us/library/system.windows.forms.folderbrowserdialog (v=V110).aspx

Par exemple, vous pourriez faire ceci: 

If apppath = "" Then
    Dim dialog As New FolderBrowserDialog()
    dialog.RootFolder = Environment.SpecialFolder.Desktop
    dialog.SelectedPath = "C:\"
    dialog.Description = "Select Application Configeration Files Path"
    If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
        apppath = dialog.SelectedPath
    End If
    My.Computer.FileSystem.WriteAllText(apppath & "apppath.txt", apppath, False)
End If
17
répondu Steven Doggart 2012-07-13 12:00:48

si je comprends bien, vous voulez laisser l'utilisateur choisir un dossier. Si c'est le cas, alors vous voulez utiliser FolderBrowserDialog au lieu de OpenFileDialog.

2
répondu APrough 2012-07-13 12:00:34 
Dim filedialog As New OpenFileDialog
filedialog.IntialDirectory = Application.StartupPath
filedialog.ShowDialog()
1
répondu ad48 2013-06-01 12:56:57

ou vous pouvez tout simplement faire moins de lignes et très simple.

http://i.imgur.com/bMq0HNz.png 

'Start your dialog with a click

Private Sub Button1_Click (sender As Object, e as EventArgs) Handles Button1.Cliquer FolderBrowserDialog1.ShowDialog() Fin Sous 

'Add if you want to show the actual path that you choose from your dialog
Private Sub FolderBrowserDialog1_Disposed(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString
End Sub
0
répondu Kingsman Coder 2015-03-22 07:28:35