Moin,
Mein Proramm soll auf Knopfdruck eine einfache Txt Datei erstellen und später auch was hineinschreiben. Wenn ich jetzt aber versuche, die Datei per Knopfdruck zu löschen, erhalte ich die Fehlermeldung aus dem Titel.
Spoiler anzeigen
Hätte da jemand eine Lösung?
Liebe Grüße
Mein Proramm soll auf Knopfdruck eine einfache Txt Datei erstellen und später auch was hineinschreiben. Wenn ich jetzt aber versuche, die Datei per Knopfdruck zu löschen, erhalte ich die Fehlermeldung aus dem Titel.
VB.NET-Quellcode
- Public Class Form1
- Dim folder As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\CoCVisit\"
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If TextBox1.Text = Nothing Or TextBox2.Text = Nothing Or TextBox3.Text = Nothing Then
- MsgBox("Nö")
- Else
- Try
- IO.Directory.CreateDirectory(folder & TextBox1.Text)
- IO.File.Create(folder & TextBox1.Text & "\Proberties.txt")
- Catch ex As Exception
- End Try
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- If IO.Directory.Exists(folder) Then
- Else
- Try
- IO.Directory.CreateDirectory(folder)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End If
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- If ListBox1.SelectedItem = "" Then
- Button2.Visible = False
- Else
- Label1.Text = ListBox1.SelectedItem
- Button2.Visible = True
- End If
- Dim f As String
- For Each f In IO.Directory.GetDirectories(folder)
- Dim Name() As String = Split(f, folder)
- If ListBox1.Items.Contains(Name(1)) Then
- Else
- ListBox1.Items.Add(Name(1))
- End If
- Next
- Dim i As String
- Try
- For Each i In ListBox1.Items
- If IO.Directory.Exists(folder & i) Then
- Else
- ListBox1.Items.Remove(i)
- End If
- Next
- Catch ex As Exception
- End Try
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Try
- IO.Directory.Delete(folder & ListBox1.SelectedItem, True)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- End Class
Hätte da jemand eine Lösung?
Liebe Grüße
Ich kam, sah und vergaß, was ich vorhatte.