Webpart to display only the folder/ files in a doc library

I got the solution guys...

Dim list as String="TestLibrary"

Dim itemfile As SPFile = Nothing

Dim spFiles As List(Of SPFile) = list.RootFolder.Files.Cast(Of SPFile).ToList

spFiles.Sort(New System.Comparison(Of SPFile)(Function(f1 As SPFile, f2 As SPFile) Return f1.Name.CompareTo(f2.Name) End Function))

For Each itemfile In spFiles

Dim SNode As TreeNode = CreateNode(itemfile.Name, SPContext.Current.Web.Url & "/" & itemfile.Url, "/_layouts/images/" & itemfile.IconUrl)

Me.tvwList.Nodes.Add(SNode)

Next itemfile