Comment spécifier le chemin à l'aide de dialogue d'ouverture de fichier dans vb.net?

Dans le premier démarrage de mon application, j'ai besoin de spécifier un chemin d'accès à l'enregistrement de certains fichiers. Mais dans le fichier ouvert au dialogue, il semble que j'ai pour 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 dans l'ordre pour que cela fonctionne, mais je veux juste de sélectionner un dossier. Alors quelle est la solution?

OriginalL'auteur FPGA | 2012-07-13

17

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

http://msdn.microsoft.com/en-us/library/system.windows.forms.folderbrowserdialog(v=vs. 110).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
```
L'OP a demandé comment sélectionner un chemin d'accès à l'aide d'un Ouvrir le Fichier de Dialogue. MME de FolderBrowserDialog est tout à fait inutile (comme il n'a pas été mis à jour depuis les années 90, avec le dossier de l'arborescence de navigation comme la vieille école de l'explorateur windows à partir de windows 3.0) et pas tout le monde veut l'utiliser pour sélectionner les chemins d'accès.

OriginalL'auteur Steven Doggart
2

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

OriginalL'auteur APrough
1
```
Dim filedialog As New OpenFileDialog
filedialog.IntialDirectory = Application.StartupPath
filedialog.ShowDialog()
```
Votre deuxième ligne comprend une faute de frappe dans".IntialDirectory'. La première baisse " je " est absent. L'ensemble de la ligne doit être " filedialog.InitialDirectory = Application.StartupPath'

OriginalL'auteur ad48

Ou vous pouvez tout simplement faire moins de lignes et de 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.Cliquez sur
FolderBrowserDialog1.ShowDialog()
End Sub

'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

OriginalL'auteur Kingsman Coder

Vous devez vous connecter pour publier un commentaire.