Dateien in listbox

  • VB.NET

Es gibt 35 Antworten in diesem Thema. Der letzte Beitrag () ist von toto.

    Dateien in listbox

    Hallo zusammen,
    würde nur gerne wissen was an diesem Code falsch ist:

    VB.NET-Quellcode

    1. Private Sub lboAudio_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lboAudio.GotFocus
    3. For Each dateien As String In My.Computer.FileSystem.GetFiles("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & txtSong_Info.Text & ".mp3")
    4. dateien = dateien.Replace("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & txtSong_Info.Text & ".mp3", Nothing)
    5. lboAudio.Items.Add(dateien)
    6. Next


    bekomme immer die meldung : konnte nicht gefunden werden.

    vielen Dank im Voraus

    lg

    toto
    lg toto

    toto schrieb:

    würde nur gerne wissen was an diesem Code falsch ist:

    Fast alles?

    ...GetFiles erwartet als Parameter ein String, der ein DIRECTORY bezeichnet. Bei dir ist es ne Datei.
    ...Replace erwartet 2 Strings, du übergibst aber nen String und [nothing]. [nothing] ist kein String

    Vlt solltest du erstmal erklären, WAS du überhaupt bezwecken willst?

    habe es mit beide probiert.


    UFO mit deinem Code bekomme ich eine Fehlermeldung im Bereich : IO.SearchOption.TopDirectoryOnly.

    picoflop, habe dein Code so eingebaut:

    VB.NET-Quellcode

    1. Dim Path As String
    3. Path = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text & "*.mp3"
    4. frm.lboAudio.Items.Add(cboSong.Text & "*.mp3")




    Funzt super.

    Danke an euch beide.

    lg

    toto

    Visual Basic-Quellcode

    lg toto

    Sorry ich muss das Thema wieder aufgreifen.

    Das was ich gemacht habe ist kompletter Unsinn, hätt ich gleich den Code von picoflop nehmen können.

    Also ich habe ein Song mit viele verschiedenen Endung:

    Autumn Leaves.mp3
    Autumn Leaves.midi
    Autumn Leaves.gp3
    Autumn Leaves.tef
    usw.

    Das habe ich gemeint, sorry mein Fehler, wenn ich ein Song in CBO wähle sollen mir
    in LBO alle Variationen des Sogs aufgelistet werden.
    Und es macht kein Sinn mit:

    .....bla, bla" & cboSong.Text & ".mp3, .tef, .mgu, .gp3"
    weil die Antwort ist:
    Autumn Leaves.mp3, .tef, .mgu, .gp3

    Vielleicht habe es jetzt besser geschilder4t.

    lg

    toto
    lg toto

    Nein, hast du nicht.

    Außerdem gibt es bestimmt keine Datei mit folgendem Namen:

    Quellcode

    1. C:\Lala\Autumn Leaves.mp3, .tef, .mgu, .gp3


    Sondern eher

    Quellcode

    1. C:\Lala\Autumn Leaves.mp3
    2. C:\Lala\Autumn Leaves.tef
    3. C:\Lala\Autumn Leaves.mgu
    4. C:\Lala\Autumn Leaves.gp3

    Versuche es so zu lösen:

    VB.NET-Quellcode

    1. Dim ordner As String = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text & "*.*"
    2. For Each datei As String In System.IO.Directory.GetFiles(ordner)
    3. If datei Like cboSong.Text Then
    4. frm.lboAudio.Items.Add(datei)
    5. End If
    6. Next


    Kommt aber die Meldung : Illegales Zeichen im Pfad.
    Ist evtl. "*.*" ??
    Wie kann ich abfragen nach alle Dateiendungen?

    Für ein wenig Hilfe wäre ich dankbar.

    lg

    toto
    lg toto

    Eine weitere Möglichkeit ...
    Funktion

    VB.NET-Quellcode

    1. Private Sub ListFilesInComboBox(ByVal ordner As String, _
    2. ByVal cbo As ComboBox, _
    3. ByVal suchOption As IO.SearchOption, _
    4. ByVal ParamArray dateiEndungen() As String)
    5. ' Prüfen, ob "ordner" angegeben wurde
    6. If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("Verzeichnis")
    8. Dim locDirInfo As New IO.DirectoryInfo(ordner)
    9. ' Prüfen auf Existenz des "ordner"s
    10. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    12. Try
    13. cbo.BeginUpdate() ' ComboBox auf UpdateModus setzen
    14. cbo.Items.Clear() ' Vorhandene Einträge löschen
    16. ' Durchläuft alle Dateien des angegebenen "ordner"s
    17. For Each locFileInfo As IO.FileInfo In locDirInfo.GetFiles("*.*", suchOption)
    18. ' Durchläuft die gesuchten Dateiendungen
    19. For Each dateiEndung As String In dateiEndungen
    20. ' Punkt vor Dateiendung hinzufügen, falls nicht angegeben
    21. If Not dateiEndung.StartsWith(".") Then dateiEndung = "." & dateiEndung
    22. ' Vergleich der Dateiendung
    23. If locFileInfo.Extension.ToLower = dateiEndung.ToLower Then
    24. cbo.Items.Add(locFileInfo.FullName) ' Vollständigen Pfad in ComboBox aufnehmen
    25. End If
    26. Next
    27. Next
    28. Catch ex As Exception
    29. Throw ex
    30. Finally
    31. cbo.EndUpdate() ' UpdateModus des ComboBox beenden
    32. locDirInfo = Nothing
    33. If cbo.Items.Count > 0 Then cbo.SelectedIndex = 0 ' Ersten Eintrag auswählen
    34. End Try
    35. End Sub

    Aufrufen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Try
    3. Me.ListFilesInComboBox("D:\Musik", _
    4. ComboBox1, _
    5. IO.SearchOption.AllDirectories, _
    6. "mp3", ".mdi", "ape", ".wav")
    7. Catch ex As Exception
    8. MessageBox.Show(ex.Message)
    9. End Try
    10. End Sub

    Sorry an alle, musste gestern plötzlich weg.

    Hallo UFO,
    habe dein Code so eingesetzt:

    VB.NET-Quellcode

    1. Private Sub cboSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSong.Click
    2. For Each f As String In IO.Directory.GetFiles("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\", "Autumn Leaves.*", IO.SearchOption.TopDirectoryOnly)
    3. Form2.lboAudio.Items.Add(My.Computer.FileSystem.GetFileInfo(f).FullName)
    4. Next
    6. End Sub

    Warum Name der Datei, wenn dieser vom CBO übergeben wird

    Leider keine auflistung, LBO bleibt blank.
    Habe was falsch geschrieben???


    Hallo xtts02,

    If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("Verzeichnis")
    Ich nehme an das "Verzeichnis" mein Pfad ist.

    und

    Me.ListFilesInComboBox("D:\Musik"
    "D:\Musik" auch mein Pfad ist.

    habe dein Code so eingesetzt:

    VB.NET-Quellcode

    1. 'Audio Files an Listbox Form 2 übergeben
    3. Private Sub ListFilesInListBox(ByVal ordner As String, _
    4. ByVal lboAudio As ListBox, _
    5. ByVal suchOption As IO.SearchOption, _
    6. ByVal ParamArray dateiEndungen() As String)
    7. ' Prüfen, ob "ordner" angegeben wurde
    8. If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text)
    10. Dim locDirInfo As New IO.DirectoryInfo(ordner)
    11. ' Prüfen auf Existenz des "ordner"s
    12. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    14. Try
    15. lboAudio.BeginUpdate() ' ComboBox auf UpdateModus setzen
    16. lboAudio.Items.Clear() ' Vorhandene Einträge löschen
    18. ' Durchläuft alle Dateien des angegebenen "ordner"s
    19. For Each locFileInfo As IO.FileInfo In locDirInfo.GetFiles("*.*", suchOption)
    20. ' Durchläuft die gesuchten Dateiendungen
    21. For Each dateiEndung As String In dateiEndungen
    22. ' Punkt vor Dateiendung hinzufügen, falls nicht angegeben
    23. If Not dateiEndung.StartsWith(".") Then dateiEndung = "." & dateiEndung
    24. ' Vergleich der Dateiendung
    25. If locFileInfo.Extension.ToLower = dateiEndung.ToLower Then
    26. lboAudio.Items.Add(locFileInfo.FullName) ' Vollständigen Pfad in ComboBox aufnehmen
    27. End If
    28. Next
    29. Next
    30. Catch ex As Exception
    31. Throw ex
    32. Finally
    33. lboAudio.EndUpdate() ' UpdateModus des ComboBox beenden
    34. locDirInfo = Nothing
    35. If lboAudio.Items.Count > 0 Then lboAudio.SelectedIndex = 0 ' Ersten Eintrag auswählen
    36. End Try
    37. End Sub
    38. Private Sub cboSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSong.Click
    39. Try
    40. Me.ListFilesInListBox("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text, _
    41. Form2.lboAudio, _
    42. IO.SearchOption.AllDirectories, _
    43. "mp3", ".mdi", "ape", ".wav")
    44. Catch ex As Exception
    45. MessageBox.Show(ex.Message)
    46. End Try
    47. End Sub


    Leider auch keine Daten in LBO,
    habe auch hier was falsch geschrieben??

    Danke im Voraus

    lg

    toto
    lg toto

    Ich habe gestern nicht ganz verstanden, was Du vorhast. Daher passt das Beispiel nicht ganz. Das Beispiel von gestern listet nur den vollständigen Pfad aller Dateien der angegebenen Dateiendungen in einen ComboBox auf.
    Ich habe jetzt alle Beiträge in diesem Thread nochmal genauer gelesen. Wenn ich richtig verstanden habe, dann hast Du einen ComboBox und einen ListBox. In dem ComboBox sollen Dateiname stehen. Nach Auswählen einer Datei im ComboxBox sollen in ListBox alle Dateien mit demselben Dateinamen angezeigt werden.
    Ich habe jetzt das Beispiel geändert. Zwei Methoden
    1. ComboBoxFüllen: Durchsucht das angegebene Verzeichnis und listet alle Dateien (ohne Dateiendung) auf. Alle Dateien mit demselben Dateiname werden nur einmal aufgenommen
    2. ListboxFüllen: Suche im angegebenen Verzeichnis nach den angegeben Dateinamen

    VB.NET-Quellcode

    1. Private _Musikordner As String = "D:\Musik"
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Try
    5. Me.ComboBoxFüllen(_Musikordner, ComboBox1, IO.SearchOption.AllDirectories)
    6. Catch ex As Exception
    7. MessageBox.Show(ex.Message)
    8. End Try
    9. End Sub
    11. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    12. Try
    13. ' _Musikordner = Verzeichnis
    14. ' Listbox1 = Listbox, in dem die gefundenen Dateien angezeigt werden
    15. ' DirectCast(sender, ComboBox).SelectedItem.ToString = In ComboBox1 ausgewählter Dateiname
    16. Me.ListBoxFüllen(_Musikordner, ListBox1, DirectCast(sender, ComboBox).SelectedItem.ToString, IO.SearchOption.AllDirectories)
    17. Catch ex As Exception
    18. MessageBox.Show(ex.Message)
    19. End Try
    20. End Sub
    22. ''' <summary>
    23. ''' Alle Dateien eines Verzeichnisses durch Angabe des Dateinamens in einem ListBox anzeigen
    24. ''' </summary>
    25. ''' <param name="ordner">Verzeichnis</param>
    26. ''' <param name="lstbox">Listbox, in dem die gefundenen Dateien angezeigt werden</param>
    27. ''' <param name="dateiName">Name der gesuchten Dateien</param>
    28. ''' <param name="suchOption">Angabe, ob Unterverzeichnisse durchsucht werden</param>
    29. ''' <remarks></remarks>
    30. Private Sub ListBoxFüllen(ByVal ordner As String, ByVal lstbox As ListBox, ByVal dateiName As String, ByVal suchOption As IO.SearchOption)
    31. ' Ausnahmefehler ausgeben, wenn ordner nicht angegeben ist
    32. If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("Verzeichnis")
    34. Dim locDirInfo As New IO.DirectoryInfo(ordner)
    35. ' Fehler ausgeben, wenn ordner nicht existiert
    36. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    38. Try
    39. lstbox.BeginUpdate()
    40. lstbox.Items.Clear()
    42. For Each locFileInfo As IO.FileInfo In locDirInfo.GetFiles("*" & dateiName & "*", suchOption)
    43. ' Vollständiger Pfad anzeigen (FullName)
    44. lstbox.Items.Add(locFileInfo.FullName)
    45. Next
    46. Catch ex As Exception
    47. Throw ex
    48. Finally
    49. lstbox.EndUpdate()
    50. locDirInfo = Nothing
    51. End Try
    52. End Sub
    54. ''' <summary>
    55. ''' Alle Dateien (ohne Dateienung, ohne Duplikat) eines Ordners in einen ComboBox auflisten
    56. ''' </summary>
    57. ''' <param name="ordner">Ordner, dessen Inhalt aufgelistet wird</param>
    58. ''' <param name="cbo">ComboBox, in dem die Dateien angezeigt werden</param>
    59. ''' <param name="suchOption">Angabe, ob Unterverzeichnisse durchsucht werden</param>
    60. ''' <remarks></remarks>
    61. Private Sub ComboBoxFüllen(ByVal ordner As String, ByVal cbo As ComboBox, ByVal suchOption As IO.SearchOption)
    62. ' Ausnahmefehler ausgeben, wenn ordner nicht angegeben ist
    63. If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("Verzeichnis")
    65. Dim locDirInfo As New IO.DirectoryInfo(ordner)
    66. ' Fehler ausgeben, wenn ordner nicht existiert
    67. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    69. Dim locDateiName As String = String.Empty
    70. Try
    71. cbo.BeginUpdate()
    72. cbo.Items.Clear()
    74. For Each locFileInfo As IO.FileInfo In locDirInfo.GetFiles("*.*", suchOption)
    75. ' Dateiname ohne Endung
    76. locDateiName = locFileInfo.Name.Replace(locFileInfo.Extension, "")
    77. ' Dateiname nur einmal in ComboBox aufnhemen
    78. If Not cbo.Items.Contains(locDateiName) Then
    79. cbo.Items.Add(locDateiName)
    80. End If
    81. Next
    82. Catch ex As Exception
    83. Throw ex
    84. Finally
    85. cbo.EndUpdate()
    86. locDirInfo = Nothing
    87. locDateiName = Nothing
    88. End Try
    89. End Sub

    Hallo xtts02,

    Damit du weiß was ich genau mache:

    CBO ließt die Daten aus DB

    VB.NET-Quellcode

    1. Sub Ausgabe()
    2. Dim con As New OleDb.OleDbConnection
    3. Dim cmd As New OleDb.OleDbCommand
    4. Dim reader As OleDb.OleDbDataReader
    5. Dim Song As New ArrayList
    7. con.ConnectionString = _
    8. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    9. "Data Source=C:\Dokumente und Einstellungen\user\Eigene Dateien\Visual Express 2008\Projects\JAZZ Archiv ver.02\DATENBANK_BE.mdb"
    10. cmd.Connection = con
    11. cmd.CommandText = "select Song from tblSong_HptF where Song like '%" _
    12. & txtAngabe.Text & "%'" _
    13. & "ORDER by Song "
    15. con.Open()
    16. reader = cmd.ExecuteReader()
    17. cboSong.Items.Clear()
    18. Do While reader.Read()
    19. cboSong.Items.Add( _
    20. reader("Song"))
    22. Loop
    23. reader.Close()
    25. If txtAngabe.Text <> "" Then
    26. cboSong.DroppedDown = True
    27. End If


    hier habe dein Code eingesetzt:

    VB.NET-Quellcode

    1. Private _Musikordner As String = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text
    3. Private Sub cboSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSong.Click
    4. Try
    5. ' _Musikordner = Verzeichnis
    6. ' Listbox1 = Listbox, in dem die gefundenen Dateien angezeigt werden
    7. ' DirectCast(sender, ComboBox).SelectedItem.ToString = In ComboBox1 ausgewählter Dateiname
    8. Me.ListBoxFüllen(_Musikordner, Form2.lboAudio, DirectCast(sender, ComboBox).SelectedItem.ToString, IO.SearchOption.AllDirectories)
    9. Catch ex As Exception
    10. MessageBox.Show(ex.Message)
    11. End Try
    12. End Sub
    14. ''' <summary>
    15. ''' Alle Dateien eines Verzeichnisses durch Angabe des Dateinamens in einem ListBox anzeigen
    16. ''' </summary>
    17. ''' <param name="ordner">Verzeichnis</param>
    18. ''' <param name="lstbox">Listbox, in dem die gefundenen Dateien angezeigt werden</param>
    19. ''' <param name="dateiName">Name der gesuchten Dateien</param>
    20. ''' <param name="suchOption">Angabe, ob Unterverzeichnisse durchsucht werden</param>
    21. ''' <remarks></remarks>
    22. Private Sub ListBoxFüllen(ByVal ordner As String, ByVal lstbox As ListBox, ByVal dateiName As String, ByVal suchOption As IO.SearchOption)
    23. ' Ausnahmefehler ausgeben, wenn ordner nicht angegeben ist
    24. If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text)
    26. Dim locDirInfo As New IO.DirectoryInfo(ordner)
    27. ' Fehler ausgeben, wenn ordner nicht existiert
    28. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    30. Try
    31. lstbox.BeginUpdate()
    32. lstbox.Items.Clear()
    34. For Each locFileInfo As IO.FileInfo In locDirInfo.GetFiles("*" & dateiName & "*", suchOption)
    35. ' Vollständiger Pfad anzeigen (FullName)
    36. lstbox.Items.Add(locFileInfo.FullName)
    37. Next
    38. Catch ex As Exception
    39. Throw ex
    40. Finally
    41. lstbox.EndUpdate()
    42. locDirInfo = Nothing
    43. End Try
    44. End Sub


    Leider die Meldung:
    Fehler beim erstellen des Formular.

    lg

    toto
    lg toto

Facebook
Telefonspende