Hi,
ich würde mich gerne von euch verbessern lassen. Gibt es in meinem Code wichtige Dinge, die ich verbessern sollte/muss?
ich würde mich gerne von euch verbessern lassen. Gibt es in meinem Code wichtige Dinge, die ich verbessern sollte/muss?
VB.NET-Quellcode
- 'Aktion des Buttons
- Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
- If RadioButton10.Checked = True Then
- If lb1.Items.Count() < 1 Then
- MessageBox.Show("Liste Leer", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Else
- For indexOrdnerAnfang As Integer = 0 To (lb2.Items.Count - 1)
- Dim RootName As String = GetOrdnerRoot(lb2.Items(indexOrdnerAnfang).ToString)
- MessageBox.Show("Root: " + RootName)
- Dim VollerName As String = GetFullPath(lb2.Items(indexOrdnerAnfang).ToString)
- MessageBox.Show("Full: " + VollerName)
- Dim FolderName As String = GetFileName(lb2.Items(0).ToString)
- MessageBox.Show("Name: " + FolderName)
- Try
- 'GUT SO, ODER GEHTS BESSER?
- System.IO.Directory.Move(VollerName, RootName + "\" + Ordnertb.Text + FolderName)
- Catch ex As Exception
- MessageBox.Show("Error: " + ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- Next
- End If
- lb2.Items.Clear()
- lb1.Items.Clear()
- End If
- End Sub
- 'LB füllen
- Private Sub lb1_DragDrop(sender As Object, e As DragEventArgs) Handles lb1.DragDrop
- Dim droppedItems As String() = e.Data.GetData(DataFormats.FileDrop)
- For Each file In droppedItems
- Dim GanzerOrdnerPfad = GetOrdnerFull(file)
- lb2.Items.Add(GanzerOrdnerPfad)
- 'GUT SO, ODER GEHTS BESSER?
- Dim OrdnerName As String = New System.IO.DirectoryInfo(GetOrdnerFull(file)).Name
- lb1.Items.Add(OrdnerName)
- Next
- End Sub
- 'Funktionen
- Public Function GetOrdnerFull(path As String)
- Return System.IO.Path.GetFullPath(path)
- End Function
- Public Function GetOrdnerRoot(path As String)
- Return System.IO.Path.GetDirectoryName(path)
- End Function
- Public Function GetFileName(path As String)
- Return System.IO.Path.GetFileNameWithoutExtension(path)
- End Function