knuefi
Oct 19, 2016
view1365
view5
0
Goto Top

Die in einer angezeigten ListBox Dateien in den Ordner per Button löschen

GermansolvedQuestionC, C++Development
Hallo,

ich habe folgendes Problem und hoffe mir kann jemand weiter helfen.
Per Button werden mir die Inhalte eines Ordner in einer ListBox angezeigt, nun sollen die in der ListBox angezeigten Dateien per Button in den Ordner gelöscht werden.
Das habe ich versucht:
 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            My.Computer.FileSystem.DeleteFile(ListBox1)
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten !", MsgBoxStyle.Critical, "Fehler")  
        End Try
    End Sub

Gruß
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 318436

Url: https://administrator.de/contentid/318436

Printed on: April 23, 2024 at 11:04 o'clock

5 Comments
Latest comment
Goto Top
Member: StefanKittel
StefanKittel Oct 20, 2016 at 05:24:32 (UTC)
Goto Top
Moin,

allgemein zum Testen kann man immer prima DeleteFile durch MsgBox ersetzen um zu schauen was dort ankommt.

Zur Frage
ListBox1 ist das Listen-Objekt selber.
Vermutlich ist es ListBox1.value oder ähnlich.

Vieleicht fehlt auch einfach nur der Pfad.

Stefan
Member: StefanKittel
StefanKittel Oct 20, 2016 at 05:37:49 (UTC)
Goto Top
Was sagt eigentlich die Exception?
Oder wird sie nicht ausgelöst?
Member: atze187
atze187 Oct 20, 2016 at 06:02:33 (UTC)
Goto Top
Wo ist das Problem? Und warum ist das mit C/C++ getagged?
Member: atze187
Solution atze187 Oct 20, 2016 at 06:10:18 (UTC)
Goto Top
Problem erkannt. Du übergibst ListBox1 als Parameter an DeleteFile, was nicht klappen kann. Visual Studio dürfte das nicht mal kompilieren, da DeleteFile auf jeden Fall einen String als Parameter für die zu löschende Datei erwartet.

Richtigerweise wäre, falls du in der Listbox die vollständigen Dateinamen inklusive Pfadangaben hast, folgendes:

For Each filename As String In ListBox1.Items
        Try
            My.Computer.FileSystem.DeleteFile(filename)
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten !", MsgBoxStyle.Critical, "Fehler")  
        End Try
Next

Falls die Items der Listbox vom Typ FileInfo sind und du die DisplayMember-Eigenschaft gesetzt hast, dann müsste es in etwa so sein:

For Each fileinfo As FileInfo In ListBox1.Items
        Try
            My.Computer.FileSystem.DeleteFile(fileinfo.FullName)
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten !", MsgBoxStyle.Critical, "Fehler")  
        End Try
Next
heart1
Member: Knuefi
Knuefi Oct 20, 2016 updated at 21:38:13 (UTC)
Goto Top
erstmal Danke an euch,

in der ListBox wird nur der Dateiname angezeigt, hier der Code
 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim dir As New DirectoryInfo("D:\" & comboTarget.SelectedItem)  
        For Each file As FileInfo In dir.GetFiles
            Me.ListBox1.Items.Add(file.Name)
        Next
    End Sub

Edit:
Ich habe den Fehler gefunden.
Danke für eure Tips
GermansolvedQuestionC, C++Development
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment