Den file folder mit openfiledialog öffnen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Den file folder mit openfiledialog öffnen

    Hallo,

    ich möchte mit dem OpenFileDialog anhand des properties InitialDirectory für jede Spalte in meiner SQL Tabelle einen bestimmten Pfad raus suchen. Z.B. für die erste Spalte den Pfad "\\Oplex\bossroot\Kundenverzeichnis" und für die zweite Spalte der Tabelle, falls man sie anklickt den Pfad "\\Kero\bossroot\IncomingCorrespondence". Zudem weiß ich nicht, wie man nur einen Ordner wählt, ohne z.B. eine ".txt" Datei auszuwählen.

    Du kannst dann bevor du .Show() aufrufst die .SelectedPath Eigenschaft setzen.

    Also musst du vorher nur prüfen welche Spalte da nun angeklickst ist und gibst dann .SelectedPath den
    Pfad den es haben soll.
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    schreibe ich das dann am besten so?

    VB.NET-Quellcode

    1. Dim newDataRow As DataGridViewRow
    3. If newDataRow.Cells(0).Value Then
    4. FolderBrowserDialog1.SelectedPath = "\\Oplex\bossroot\Kundenverzeichnis"
    5. End If
    7. If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
    8. txtPath.Text = FolderBrowserDialog1.SelectedPath
    9. End If

    @adnanche Zunächst machst Du Option Strict On. Visual Studio - Empfohlene Einstellungen
    Und dann so:

    VB.NET-Quellcode

    1. Dim newDataRow As DataGridViewRow = DataGridView1.Rows(0)
    2. If newDataRow.Cells(0).Value.ToString <> "" Then ' Du testest hier auf ein Boolean
    3. FolderBrowserDialog1.SelectedPath = "\\Oplex\bossroot\Kundenverzeichnis" ' ob dieser UNC-Pfad akzeptiert wird, weiß ich nicht. Ggf. brauchst Du einen Laufwerksbuchstaben
    4. End If
    5. If FolderBrowserDialog1.ShowDialog <> DialogResult.OK Then ' Escape => raus
    6. Return
    7. End If
    8. txtPath.Text = FolderBrowserDialog1.SelectedPath
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke, das war schon einmal hilfreich.
    Und wenn ich für jede Zeile einen anderen Pfad haben möchte. Etwas so in der Art?

    VB.NET-Quellcode

    1. Private Sub btnPath_Click(sender As Object, e As EventArgs) Handles btnPath.Click
    3. Dim newDataRow As DataGridViewRow = dgvDirectoryManagment.Rows(0)
    4. If newDataRow.Cells(0).Value.ToString <> "" Then ' Test auf ein Boolean
    5. FolderBrowserDialog1.SelectedPath = "\\gaia\bossroot\Aktenverzeichnis"
    6. End If
    7. If FolderBrowserDialog1.ShowDialog <> DialogResult.OK Then ' Escape = raus
    8. Return
    9. End If
    11. If newDataRow.Cells(1).Value.ToString <> "" Then ' Test auf ein Boolean
    12. FolderBrowserDialog1.SelectedPath = "\\gaia\bossroot\Kundenverzeichnis"
    13. End If
    14. If FolderBrowserDialog1.ShowDialog <> DialogResult.OK Then ' Escape = raus
    15. Return
    16. End If
    18. If newDataRow.Cells(2).Value.ToString <> "" Then ' Test auf ein Boolean
    19. FolderBrowserDialog1.SelectedPath = "\\gaia\bossroot\BOSS\IncomingCorrespondence"
    20. End If
    21. If FolderBrowserDialog1.ShowDialog <> DialogResult.OK Then ' Escape = raus
    22. Return
    23. End If
    25. txtPath.Text = FolderBrowserDialog1.SelectedPath​

    adnanche schrieb:

    Etwas so in der Art?
    Nein, eher so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btnPath_Click(sender As Object, e As EventArgs) Handles btnPath.Click
    3. Dim newDataRow As DataGridViewRow = dgvDirectoryManagment.Rows(0)
    4. If newDataRow.Cells(0).Value.ToString <> "" Then
    5. FolderBrowserDialog1.SelectedPath = "\\gaia\bossroot\Aktenverzeichnis"
    6. Else If newDataRow.Cells(1).Value.ToString <> "" Then
    7. FolderBrowserDialog1.SelectedPath = "\\gaia\bossroot\Kundenverzeichnis"
    8. Else If newDataRow.Cells(2).Value.ToString <> "" Then
    9. FolderBrowserDialog1.SelectedPath = "\\gaia\bossroot\BOSS\IncomingCorrespondence"
    10. End If
    11. If FolderBrowserDialog1.ShowDialog <> DialogResult.OK Then ' Escape = raus
    12. Return
    13. End If
    15. txtPath.Text = FolderBrowserDialog1.SelectedPath
    Da darf aber nur in einer Zelle der DGV-Zeile was stehen, sonst nimmt er immer die vorderste gefüllte Zelle.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @adnanche Zelle <> Zeile!
    Der Code untersucht Zellen (Spalten) einer Zeile.
    Welche Zeile verwendet wird, hast Du in Deinem Code so festgelegt:

    VB.NET-Quellcode

    1. Dim newDataRow As DataGridViewRow = dgvDirectoryManagment.Rows(0) ' die 0 hier
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    adnanche schrieb:

    Es wäre aber ganz gut wenn ich jede Zeile anklicken könnte
    Kann es sein, dass Du Deinen eigenen Code nicht verstehst?
    Da musst Du statt dgvDirectoryManagment.Rows(0) dies verwenden:

    VB.NET-Quellcode

    1. Dim newDataRow As DataGridViewRow = dgvDirectoryManagment.SelectedRows(0)
    Wenn Du auf eine Zelle direkt klicken willst und diese dann auswertest, machst Du:

    VB.NET-Quellcode

    1. Dim cell = Me.DataGridView1.SelectedCells(0)
    Allerdings darf dann der SelectionMode des DGV nicht auf FullRowSelect stehen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende