Display files and subfolders in Grid

I have a GridView that is displaying all the files and in a specific
directory and it works fine. However, there are now folders (subfolders)
inside that directory that I would also like to display (maybe with a folder
icon which I can figure out). How can I get all files and folders to display
in my GridView? Below is the portion of code that I now use to display the
files. Thanks.

Dim dirInfo As New DirectoryInfo(strPathPhy)
Dim fileInfoArray() As FileInfo = dirInfo.GetFiles()

Array.Sort(fileInfoArray, New
CompareFileInfoEntries(compareMethod))
articleList.DataSource = fileInfoArray
articleList.DataBind()


--
David