Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei Löschen geht nicht
Autor: Call_Me_Rookie
Datum: 08.02.05 15:35
Hallo Leute, ach und danke für die prompte Hilfe vom letzten Mal! Hab mal wieder ein kleines Problem, was mich so den ganzen Tag beschäftigt, und zwar folgendes: Ich habe Daten aus einer Arraylist in eine Datei geschrieben, die Datei hat nur eine temporäre Funktion und soll beim Verlassen der Form wieder gelöscht werden. Eine untergeordnete Form liest die Daten wieder aus. Die Daten werden folgendermaßen abgespeichert: Private Sub btnKorrektur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKorrektur.Click Dim Frm As New EingabeKorrektur Dim I As Integer If txtHerzfrequenz.Text <> "" Then Dim Schreiben As StreamWriter = File.AppendText(Pfad & "herz.dat") For I = 0 To Herzfrequenz_Liste.Count - 1 Schreiben.WriteLine(Herzfrequenz_Liste(I)) Next Schreiben.Close() End If If txtSysBlutdruck.Text <> "" Then Dim Schreiben As StreamWriter = File.AppendText(Pfad & "systh.dat") For I = 0 To SysBlutdruck_Liste.Count - 1 Schreiben.WriteLine(SysBlutdruck_Liste(I)) Next Schreiben.Close() End If If txtDiaBlutdruck.Text <> "" Then Dim Schreiben As StreamWriter = File.AppendText(Pfad & "diasth.dat") For I = 0 To DiaBlutdruck_Liste.Count - 1 Schreiben.WriteLine(DiaBlutdruck_Liste(I)) Next Schreiben.Close() End If Call Frm.ShowDialog() End Sub Soweit so gut, und bis dahin gibts keine Probleme! Die Daten werden wie folgt in der anderen Form ausgelesen: Private Sub cmbAuswahl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbAuswahl.SelectedIndexChanged Dim Eingabe As EingabeMesswerte Dim Pfad As String = "\My Documents\Temp\" Dim Datei As File Dim Temp As String Dim Lesen As StreamReader Try If cmbWerte.Enabled = False Then cmbWerte.Enabled = True End If Lesen = New StreamReader(Pfad & "herz.dat") Do Temp = Lesen.ReadLine If Temp = "" Then GoTo Ausgang End If cmbWerte.Items.Add(Temp) Loop Lesen.Close() Ausgang: Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Der Löschvorgang wird wieder mittels Button ausgelöst, mit folgendem Code: Private Sub BefFertig_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BefFertig.Click Try If File.Exists(Pfad & "herz.dat") = True Then File.Delete(Pfad & "herz.dat") End If Me.Close() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub So, und hier kommt mein Problem, die MsgBox im letzten Button spuckt mir nämlich ne Fehlermeldung aus, die dann besagt: System.IO.IOException:IOException Ich probier nun schon den ganzen Tag dran rum und komm nicht vorran! Meine Vermutung wäre, dass es was mit dem Puffer und demzufolge was mit dem basestream zu tun hat. werde daraus aber auch nicht schlauer als vorher! Kann mir jemand helfen? Danke für die geduldigen Leute, die den Code lesen! Und noch mehr Dank an die Leute die mir darauf antworten bzw. helfen! Style over Substance hat noch keinen weitergebracht!!!

Datei Löschen geht nicht	1.474	Call_Me_Rookie	08.02.05 15:35
Re: Datei Löschen geht nicht	945	Call_Me_Rookie	08.02.05 15:43
Re: Datei Löschen geht nicht	987	Maywood	08.02.05 19:31
Re: Datei Löschen geht nicht	785	Call_Me_Rookie	09.02.05 09:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen