Hey,
Aktuell habe ich hier ein Button_Click event aber Irgendwie funktioniert das nicht ganz...
Wie im Code zu sehen habe ich 5x Textbox und wenn eine davon Leer ist Kommt eine Meldung, dass Funktioniert auch.
Aber sobald alle Voll sind bekomme ich nichts mehr...kein Ordner wird Erstellt oder sonst was.
hab auch Schon breakpoints gesetzte aber auch kein Ergebnis...
Wo ist der Fehler? ich find ihn einfach nicht...
LG
Aktuell habe ich hier ein Button_Click event aber Irgendwie funktioniert das nicht ganz...
Wie im Code zu sehen habe ich 5x Textbox und wenn eine davon Leer ist Kommt eine Meldung, dass Funktioniert auch.
Aber sobald alle Voll sind bekomme ich nichts mehr...kein Ordner wird Erstellt oder sonst was.
hab auch Schon breakpoints gesetzte aber auch kein Ergebnis...
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
- MessageBox.Show("Fülle alle Felder aus!")
- Else
- For Each s As String In IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/")
- Try
- If s.Substring(s.IndexOf("/")).Split("/"c)(2) = TextBox5.Text Then
- MessageBox.Show("Das Projekt existiert Bereits!")
- Exit For
- Else
- Try
- IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "/data/" & TextBox5.Text)
- IO.File.WriteAllText(My.Application.Info.DirectoryPath & "/data/" & TextBox5.Text & "/" & TextBox5.Text & ".btid", "CPU:" & TextBox1.Text & vbNewLine & "RAM:" & TextBox2.Text & vbNewLine & "W/R_C:" & TextBox3.Text & vbNewLine & "Graph:" & TextBox4.Text)
- MessageBox.Show("Erstellen von " & TextBox5.Text & " war Erfolgreich!")
- Form2.Show()
- Exit For
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- End Try
- End If
- Catch ex As Exception
- MessageBox.Show("Fehler!")
- End Try
- Next
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- If IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/").Count = 0 Then
- MessageBox.Show("test")
- Else
- Me.Hide()
- Me.ShowInTaskbar = False
- Form2.Show()
- End If
- End Sub
Wo ist der Fehler? ich find ihn einfach nicht...
LG