VisualBasic Ordnername in Listbox anzeigen

Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            Try
                For Each sData In IO.Directory.GetDirectories(FolderBrowserDialog1.SelectedPath & "\", "*", IO.SearchOption.AllDirectories)
                    With ListBoxOrdner.Items.Add(My.Computer.FileSystem.GetName(sData))
                        Tag = sData.ToString
                    End With
                Next
            Catch ex As Exception

            End Try
        End If

    End Sub

	Sub ButtonAddClick(sender As Object, e As EventArgs)
		With folderBrowserDialog1
			If .ShowDialog = DialogResult.OK Then
				
				'ein neues DirectoryInfo-Objekt aus dem ausgewählten Ordner erstellen
				Dim di As New System.IO.DirectoryInfo(.SelectedPath)
				
				'alle Unterordner des ausgewählten Ordners in der listbox anzeigen
				'listBoxOrdner.DataSource = di.GetDirectories
				
				'oder alle Dateien des ausgewählten Ordners in der listbox anzeigen
				'listBoxOrdner.DataSource = di.GetFiles
				
				'oder nur den ausgewählten Ordner in der listbox anzuzeigen
				'listBoxOrdner.Items.Add(di)
				
				'je nach Wunsch auskommentieren
				
			End If
		End With
	End Sub