Dim targetFolder As String = "D:\" Dim folder As String() = System.IO.Directory.GetDirectories(targetFolder, "*", IO.SearchOption.AllDirectories)