Hallo,
für mein Projekt versuche ich ein "zuletzt verwendet" zu machen. Das ganze sieht so aus, dass ich in eine Textdatei immer 3 Namen von Lektionen speichere, welche in Linklabel eingelesen werden und so einen schnelleren Start ermöglichen. Nun gut, bei jedem Mal, wo ich eine Lektion öffne, führe ich einen Sub aus. Folgendes in dem Sub speichert die Namen der zuletzt geöffneten Lektionen:
Mein Problem liegt nun bei:
Fehlermeldung:
Geladen habe ich die Zuletzt verwendeten Lektionen mit:
Hier verwende ich "Using", also sollte nachdem "End Using" die Datei wieder "losgelassen" werden, oder? Ich glaub also nicht dass dies daran liegt.
Hat jemand eine, an was diese Fehlermeldung liegen könnte?
Danke im Vorraus.
MFG
für mein Projekt versuche ich ein "zuletzt verwendet" zu machen. Das ganze sieht so aus, dass ich in eine Textdatei immer 3 Namen von Lektionen speichere, welche in Linklabel eingelesen werden und so einen schnelleren Start ermöglichen. Nun gut, bei jedem Mal, wo ich eine Lektion öffne, führe ich einen Sub aus. Folgendes in dem Sub speichert die Namen der zuletzt geöffneten Lektionen:
VB.NET-Quellcode
- '(...)
- Dim StringBuilder As New System.Text.StringBuilder
- StringBuilder.AppendLine(L.Name)
- StringBuilder.AppendLine(VtLinkLabel14.Text) 'Ich weiß, dass ich keine Variablen aus Controls verwenden soll, änder ich noch!
- StringBuilder.AppendLine(VtLinkLabel13.Text)
- IO.File.WriteAllText(IO.Path.Combine(Dir & "\VocTrainor\Verlauf.ini").ToString, StringBuilder.ToString)
Mein Problem liegt nun bei:
Fehlermeldung:
Visual Studio 2010 Express schrieb:
Der Prozess kann nicht auf die Datei "C:\Users\Thomas\Documents\Visual Studio 2010\Projects\VocTrainor\VocTrainor\bin\Debug\VocTrainor\Verlauf.ini" zugreifen, da sie von einem anderen Prozess verwendet wird.
Geladen habe ich die Zuletzt verwendeten Lektionen mit:
VB.NET-Quellcode
- If IO.File.Exists(Dir & "\VocTrainor\Lektionen.ini") Then
- Using SR As New IO.StreamReader(Dir & "\VocTrainor\Lektionen.ini")
- While Not SR.EndOfStream
- Dim L As New Lektion
- Dim T As String = SR.ReadLine
- L.Name = T.Split("|"c)(0)
- L.Beschreibung = T.Split("|"c)(1)
- L.Sprache = T.Split("|"c)(2)
- ListBox1.Items.Add(T.Split("|"c)(0))
- Liste.Add(L)
- End While
- End Using
- End If
Hier verwende ich "Using", also sollte nachdem "End Using" die Datei wieder "losgelassen" werden, oder? Ich glaub also nicht dass dies daran liegt.
Hat jemand eine, an was diese Fehlermeldung liegen könnte?
Danke im Vorraus.
MFG
Auf der Suche nach Coding-Kursen auf Lence.at