Listview mit Dateien aus Ordner füllen + Icons

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von tuvok.

    Listview mit Dateien aus Ordner füllen + Icons

    Hallo Ihr,
    ich möchte mir ein ListView mit Dateien befüllen lassen + Icons
    Ich habe mir aus einem Projekt den Listview Part rausgeholt und habe folgendes gemacht:

    1. in einem DataGridview klicke ich eine Spalte Doppelt an .. diese füllt mir meine Variablen und fügt den rest hinzu
    das funktioniert auch einwandfrei

    VB.NET-Quellcode

    1. Label3.Text = "\\" & Quicklaunch & "\user\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\"
    2. LV2Quicklaunch = "\\" & Quicklaunch & "\user\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\"
    4. Label2.Text = "\\" & Startmenu & "\user\Start Menu\"
    5. LV1Startmenu = "\\" & Startmenu & "\user\Start Menu\"
    7. Me.LV1Start(LV1Startmenu, ListView1, ImageList1)



    2. jetzt möchte icht, dass mir das ListView alles anzeigt was ich in diesem Ordner drin habe

    VB.NET-Quellcode

    1. #Region "Listview füllen mit PC Startmenü"
    4. Private Sub LV1Start(ByVal folder As String, ByVal ltv As ListView, ByVal imgList As ImageList)
    5. If String.IsNullOrEmpty(folder) Then Throw New ArgumentNullException("Path")
    6. Dim locDirInfo As IO.DirectoryInfo = Nothing
    7. Dim locLtvItem As ListViewItem = Nothing
    9. With ltv
    10. Try
    11. .BeginUpdate()
    13. ' Spalten und Zeilen zurücksetzen
    14. .Items.Clear()
    15. .Columns.Clear()
    17. ' Spalten hinzufügen
    18. .Columns.Add("Name", 150, HorizontalAlignment.Left)
    19. .Columns.Add("Größe (Bytes)", 0, HorizontalAlignment.Right)
    20. .Columns.Add("Typ", 0, HorizontalAlignment.Left)
    21. .Columns.Add("Letzte Änderung", 0, HorizontalAlignment.Left)
    23. ' Darstellung
    24. .GridLines = True
    25. .FullRowSelect = True
    26. .MultiSelect = False
    27. .View = View.Details
    29. ' ImageList zurücksetzen
    30. imgList.Images.Clear()
    32. ' ImageList zuweisen
    33. .SmallImageList = imgList
    35. ' Dateien ermitteln
    36. locDirInfo = New IO.DirectoryInfo(folder)
    37. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    39. For Each locFi As IO.FileInfo In locDirInfo.GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    40. ' Icon zur ImageList hinzufügen - Key = Dateiendung
    41. If Not imgList.Images.ContainsKey(locFi.Extension) Then
    42. imgList.Images.Add(locFi.Extension, Icon.ExtractAssociatedIcon(locFi.FullName))
    43. End If
    44. locLtvItem = New ListViewItem(New String() {locFi.Name, locFi.Length.ToString("n"), locFi.Extension, locFi.LastAccessTime.ToString})
    45. locLtvItem.Tag = locFi ' Für spätere Verarbeitung der Datei merken
    46. locLtvItem.ImageKey = locFi.Extension ' Icon zuweisen
    47. .Items.Add(locLtvItem)
    48. Next
    50. ' Spaltenbreite automatisch anpassen
    51. '.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
    52. Catch ex As Exception
    53. Throw ex
    54. Finally
    55. .EndUpdate()
    56. locDirInfo = Nothing
    57. locLtvItem = Nothing
    58. End Try
    59. End With
    60. End Sub
    61. #End Region


    jetzt bekomme ich einen Fehler
    an der Stelle

    VB.NET-Quellcode

    1. Catch ex As Exception
    2. Throw ex

    wo ist da das Problem? hat er Probleme .lnk also Verknüpfungen anzuzeigen wegen den Icons evtl.? oder woran liegt das?
    Weil sonst habe ich keine Probleme wenn ich in nem Ordner mit dieser Variante Dateien anzeigen lassen möchte wie z.B. Bilder oder so

    Wäre schön, wenn mir jemand helfen würde..

    ja aber der Pfad ist doch Korrekt ich habe ihn auch kopiert usw. ich lasse mir den pfad auch in nem Label anzeigen..
    oder liegt es daran, dass filepath nicht mit absoluten Pfaden zurecht kommt?

    EDIT: er zeigt ja auch an das er eine Verknüpfung die in dem Ordner ist nicht anzeigen kann .. also ist doch der Pfad korrekt

Facebook
Telefonspende