Hallo an alle VB.NET-ler,
für dieses Thema musste ich mich doch registrieren, da ich keine Antwort auf mein Problem finden kann.
Nun hoffe ich hier auf Hilfe!
Ich versuche über ein SaveFileDialog den Inhalt von Textboxen in eine Datei zu speichern.
Nun beim Ausführen des unten aufgeführten Quellcodes bekomme ich folgende Fehlermeldung:
Wie kann ich das Problem lösen?
War auf einigen Seiten, habe viel versucht und doch immer das Gleiche.
Vielen Dank der Rückmeldungen im Voraus
für dieses Thema musste ich mich doch registrieren, da ich keine Antwort auf mein Problem finden kann.
Nun hoffe ich hier auf Hilfe!
Ich versuche über ein SaveFileDialog den Inhalt von Textboxen in eine Datei zu speichern.
Nun beim Ausführen des unten aufgeführten Quellcodes bekomme ich folgende Fehlermeldung:
IOException wurde nicht behandelt
Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten.
Zusätzliche Informationen: Der Prozess kann nicht auf die Datei "..." zugreifen, da sie von einem anderen Prozess verwendet wird.
VB.NET-Quellcode
- Private Sub DateiSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiSpeichernToolStripMenuItem.Click
- 'Speichert die aktuelle Fahrerliste
- Dim Fahrer_Gefunden As Integer = 0
- Dim Fahrerdatei As IO.Stream
- Dim saveFileDialog1 As New SaveFileDialog()
- saveFileDialog1.Filter = "ini files (*.ini)|*.ini"
- saveFileDialog1.FilterIndex = 1
- saveFileDialog1.RestoreDirectory = True
- saveFileDialog1.FileName = "Fahrerliste"
- saveFileDialog1.Title = "Speichere Fahrerliste"
- For Suche = 1 To 18
- If DirectCast(Meisterschaftsplatzierungen.Controls("Platz" & Suche), TextBox).Text > "" Then
- Fahrer_Gefunden = 1
- End If
- Next Suche
- If Fahrer_Gefunden = 1 Then
- If saveFileDialog1.ShowDialog() = DialogResult.OK Then
- Fahrerdatei = saveFileDialog1.OpenFile()
- If (Fahrerdatei IsNot Nothing) Then
- For Schreiben = 1 To 18
- If DirectCast(Meisterschaftsplatzierungen.Controls("Platz" & Schreiben), TextBox).Text > "" Then
- System.IO.File.WriteAllText(saveFileDialog1.FileName, Platz1.Text) "<<<<<<-------- HIER TAUCHT DER FEHLER AUF"
- End If
- Next Schreiben
- Fahrerdatei.Close()
- End If
- ElseIf DialogResult.Cancel Then
- MessageBox.Show("Datei wurde nicht gespeichert!", "Speichern abgebrochen", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
- End If
- ElseIf Gefunden = 0 Then
- MessageBox.Show("Datei kann nicht gespeichert werden!" _
- & vbNewLine & "Es wurde/n kein/e Fahrer eingetragen!", "Keine Fahrernamen vorhanden", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
- End Sub
Wie kann ich das Problem lösen?
War auf einigen Seiten, habe viel versucht und doch immer das Gleiche.
Vielen Dank der Rückmeldungen im Voraus