Get all files from sub folders

[ubkra]

I have this code to get files from a folder location on my hard drive.

How can I get all files from sub folders in this folder?

Dim FileLocation As String = "C:\MyFiles\"
            Dim di As New IO.DirectoryInfo(FileLocation)
            Dim Files As IO.FileInfo() = di.GetFiles()