MoinZen!
Es handelt sich um folgendes Problem:
Ich schreibe mit meiner DataWriter Routine eine Datei
und will diese dann über meine Löschroutine löschen
Wenn ich dies aber auf einmal versuche(sprich erst eine Datei erstellen und danach gleich wieder löschen), ist das ganze nicht möglich.
Hat da jemand eine Lösung das ich die Datei dazu bringe, nicht mehr verwendet zu werden?
Es handelt sich um folgendes Problem:
Ich schreibe mit meiner DataWriter Routine eine Datei
VB.NET-Quellcode
- Shared Sub DataWriter(ByRef Benutzername As String, ByRef Name As String, ByRef Vorname As String, ByRef Betrag As String, ByRef Zahlungsstatus As String)
- Dim Pfad As String = "Datenbank\" & Benutzername & ".txt"
- Dim StrWr As New StreamWriter(Pfad)
- StrWr.WriteLine(Benutzername)
- StrWr.WriteLine(Name)
- StrWr.WriteLine(Vorname)
- StrWr.WriteLine(Zahlungsstatus)
- StrWr.WriteLine(Betrag)
- StrWr.Close()
- End Sub
und will diese dann über meine Löschroutine löschen
VB.NET-Quellcode
- Private Sub ButtonLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLöschen.Click
- Try
- Itemscount(ListViewListe)
- Dim ListViewItem As String = ListViewListe.SelectedItems.Item(0).Text
- MsgBox("Wollen sie die Daten zu " & ListViewItem & " wirklich löschen?", MsgBoxStyle.YesNo, "Wirklich löschen?")
- If CBool(vbYes) Then
- Try
- File.Delete("Datenbank\" & ListViewItem & ".txt")
- CommissionManager_Load(sender, e)
- Catch ex As Exception
- MsgBox("Die Datei konnte nicht gelöscht werden, da ein Fehler aufgetreten ist.", MsgBoxStyle.OkOnly, "Fehler")
- End Try
- End If
- If CBool(vbNo) Then
- Exit Sub
- End If
- Catch ex As Exception
- MsgBox("Es wurde kein Eintrag ausgewählt.", MsgBoxStyle.OkOnly, "Fehler")
- End Try
- End Sub
Wenn ich dies aber auf einmal versuche(sprich erst eine Datei erstellen und danach gleich wieder löschen), ist das ganze nicht möglich.
Hat da jemand eine Lösung das ich die Datei dazu bringe, nicht mehr verwendet zu werden?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Fl3xXx.^“ ()