ListView File delete

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

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Pixxxas.

    ListView File delete

    Guten Tag, ich kann ich am besten die selektierten Dateien im ListView Löschen? Mit Löschen meine ich, vom PC Löschen.
    Mfg

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private _LastSelectedFolder As String = String.Empty
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Using dlg As New FolderBrowserDialog
    7. With dlg
    8. .Description = "Verzeichnis auswählen..."
    9. .ShowNewFolderButton = False
    10. .SelectedPath = _LastSelectedFolder
    11. .RootFolder = Environment.SpecialFolder.MyComputer
    12. If .ShowDialog = Windows.Forms.DialogResult.OK Then
    13. Try
    14. _LastSelectedFolder = .SelectedPath
    15. Me.ShowFileList(.SelectedPath & "\oxide\data", ListView1, ImageList1)
    16. Catch ex As Exception
    17. MessageBox.Show(ex.Message)
    18. End Try
    19. End If
    20. End With
    21. End Using
    22. End Sub
    24. Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
    25. With DirectCast(sender, ListView)
    26. If .FocusedItem IsNot Nothing Then
    27. Dim locFi As IO.FileInfo = CType(.FocusedItem.Tag, IO.FileInfo)
    28. Process.Start(locFi.FullName)
    29. locFi = Nothing
    30. End If
    31. End With
    32. End Sub
    34. Private Sub ListView1_ItemSelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
    35. If e.IsSelected Then
    36. ToolStripStatusLabel1.Text = DirectCast(e.Item.Tag, IO.FileInfo).FullName
    37. Else
    38. ToolStripStatusLabel1.Text = String.Empty
    39. End If
    40. End Sub
    42. Private Sub ShowFileList(ByVal folder As String, ByVal ltv As ListView, ByVal imgList As ImageList)
    43. If String.IsNullOrEmpty(folder) Then Throw New ArgumentNullException("Path")
    44. Dim locDirInfo As IO.DirectoryInfo = Nothing
    45. Dim locLtvItem As ListViewItem = Nothing
    47. With ltv
    48. Try
    49. .BeginUpdate()
    50. .Items.Clear()
    51. .Columns.Clear()
    52. .Columns.Add("Dateiname", 100, HorizontalAlignment.Left)
    53. .Columns.Add("Größe (Bytes)", 100, HorizontalAlignment.Right)
    54. .Columns.Add("Typ", 100, HorizontalAlignment.Left)
    55. .Columns.Add("Letzte Änderung", 120, HorizontalAlignment.Left)
    56. .GridLines = True
    57. .FullRowSelect = True
    58. .MultiSelect = True
    59. .View = View.Details
    60. .CheckBoxes = True
    62. imgList.Images.Clear()
    64. .SmallImageList = imgList
    66. locDirInfo = New IO.DirectoryInfo(folder)
    67. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    69. For Each locFi As IO.FileInfo In locDirInfo.GetFiles("*.*", IO.SearchOption.AllDirectories)
    71. If Not imgList.Images.ContainsKey(locFi.Extension) Then
    72. imgList.Images.Add(locFi.Extension, Icon.ExtractAssociatedIcon(locFi.FullName))
    73. End If
    75. locLtvItem = New ListViewItem(New String() {locFi.Name,
    76. locFi.Length.ToString("n"),
    77. locFi.Extension,
    78. locFi.LastAccessTime.ToString})
    79. locLtvItem.Tag = locFi
    80. locLtvItem.ImageKey = locFi.Extension
    82. .Items.Add(locLtvItem)
    83. Next
    85. Catch ex As Exception
    86. Throw ex
    87. Finally
    88. .EndUpdate()
    89. locDirInfo = Nothing
    90. locLtvItem = Nothing
    91. End Try
    92. End With
    93. End Sub
    94. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    95. Try
    96. Dim I As Integer
    97. If ListView1.CheckedItems.Count = 0 Then
    98. For I = 0 To ListView1.Items.Count - 1
    100. Next
    101. Else
    102. For I = 0 To ListView1.CheckedItems.Count - 1
    104. Next
    105. End If
    107. Catch ex As Exception
    108. MessageBox.Show(ex.Message)
    109. End Try
    110. End Sub
    111. End Class

    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!

    Check das irgendwie nicht so ganz :/ Kannst du mir bitte ein Beispiel geben?

    VB.NET-Quellcode

    1. ​ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Try
    3. Dim I As Integer
    4. If ListView1.CheckedItems.Count = 0 Then
    5. For I = 0 To ListView1.Items.Count - 1
    7. Next
    8. Else
    9. For I = 0 To ListView1.CheckedItems.Count - 1
    11. Next
    12. End If
    14. Catch ex As Exception
    15. MessageBox.Show(ex.Message)
    16. End Try
    17. End Sub

    Pixxxas schrieb:

    Kannst du mir bitte ein Beispiel geben?
    Kennst Du Deinen eigenen von Dir selbst geschriebenen Code nicht?
    Du befüllst doch Deine ListView mit Elementen einer FileInfo. Mache aus den Elementen der selektierten Zeile wieder eine FileInfo-Instanz und feddich.
    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!

    VB.NET-Quellcode

    1. ​ Else
    2. For I = 0 To ListView1.CheckedItems.Count - 1
    3. Dim locFi As IO.FileInfo = CType(ListView1.FocusedItem.Tag, IO.FileInfo)
    4. locFi.Delete()
    5. Next
    6. End If

    So Löscht er nur das Fokussierte Item und nicht die, die mit der Checkbox = true sind.

    VB.NET-Quellcode

    1. ​Dim locFi As IO.FileInfo = CType(ListView1.CheckedItems.Tag, IO.FileInfo)

    Sowas geht ja nicht.

    Wieso denn Dim locFi As IO.FileInfo = CType(ListView1.FocusedItem.Tag, IO.FileInfo)?!?
    Nimm doch ListView1.CheckedItems(i)!
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende