Guten Abend,
ich probiere in Visual Studio die Tage ein wenig herum und wollte ein kleines "Test Programm" als Übung für mich selber erstellen. Es geht darum Das ich ein Textfeld habe in den ich ein Namen eintragen kann, darunter befindet sich ein Textfeld indem ich.. naja, ein Text eingeben kann. Wenn ich nun auf den Knopf "Generieren" drücke, erstellt er mir den Ordner und das Textdokument mit dem Dazugehörigen Namen, und alle Dateinamen die sich in dem Ordner befinden werden i einer Listbox angegeben. Wenn ich nun aber versuche in diese Textdatei den Text (2. Textfeld) hineinzuschreiben, tritt dieser Fehler auf:
" Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten. Zusätzliche Informationen: Der Prozess kann nicht auf die Datei "C:\TestTest1\Test1.txt" zugreifen, da sie von einem anderen Prozess verwendet wird."
Hier ist mein Code:
Spoiler anzeigen
Spoiler]
Habe schon seit 2 Stunden probiert selbständig eine Lösung zu finden, jedoch bekomme ich es nicht hin.
Ich hoffe ihr könnt einem Anfänger helfen
ich probiere in Visual Studio die Tage ein wenig herum und wollte ein kleines "Test Programm" als Übung für mich selber erstellen. Es geht darum Das ich ein Textfeld habe in den ich ein Namen eintragen kann, darunter befindet sich ein Textfeld indem ich.. naja, ein Text eingeben kann. Wenn ich nun auf den Knopf "Generieren" drücke, erstellt er mir den Ordner und das Textdokument mit dem Dazugehörigen Namen, und alle Dateinamen die sich in dem Ordner befinden werden i einer Listbox angegeben. Wenn ich nun aber versuche in diese Textdatei den Text (2. Textfeld) hineinzuschreiben, tritt dieser Fehler auf:
" Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten. Zusätzliche Informationen: Der Prozess kann nicht auf die Datei "C:\TestTest1\Test1.txt" zugreifen, da sie von einem anderen Prozess verwendet wird."
Hier ist mein Code:
Visual Basic-Quellcode
- Public Class Form1
- ' Variablen
- Public Pfad As String = "C:\TestTest1\"
- Public Datei As String
- Public Leer As String = ""
- Public Script As String
- Public auflistung
- ' Speichersystem
- Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ' Checkt ob ein Name zugewiesen wird oder nicht
- If Name1.Text = Leer Then
- MsgBox("Bitte geben Sie einen Namen an!")
- Else
- ' Name wurde zugewiesen
- Script = Script_Text.Text
- Datei = "C:\TestTest1\" + Name1.Text + ".txt"
- If (System.IO.Directory.Exists(Pfad)) Then
- OrdnerErstellt:
- If (System.IO.File.Exists(Datei)) Then
- 'Datei Existiert
- Form2.Show()
- Else
- 'Datei Existiert nicht
- System.IO.File.Create(Me.Datei)
- Dim dir As New System.IO.DirectoryInfo(Me.Pfad)
- ListBox1.Items.Clear()
- For Each file As System.IO.FileInfo In dir.GetFiles
- Me.ListBox1.Items.Add(file.Name)
- Next
- System.IO.File.WriteAllText(Datei, Script_Text.Text)
- End If
- Else
- IO.Directory.CreateDirectory(Pfad)
- GoTo OrdnerErstellt
- End If
- End If
- End Sub
- End Class]
Habe schon seit 2 Stunden probiert selbständig eine Lösung zu finden, jedoch bekomme ich es nicht hin.
Ich hoffe ihr könnt einem Anfänger helfen