[RESOLVED] [2005] Putting folde contents names into a text box?r

[sirk]

Imports System.IO
Public Class frmBrowser
    Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
        Dim di As New IO.DirectoryInfo(dlgBrowse.SelectedPath)
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
        Dim fi As IO.FileInfo
        For Each fi In aryFi
            If txtFolders.Multiline = True Then
                txtFolders.Text = txtFolders.Text & vbCrLf & fi.Name.Replace(fi.Extension, "")
            Else
                txtFolders.Text = txtFolders.Text & " | " & fi.Name.Replace(fi.Extension, "")
            End If
        Next
    End Sub
End Class

thats wot i got completely lol