Dim oFiles As System.IO.FileInfo()
Dim oDir As New System.IO.DirectoryInfo("D:\Ablage")
 
oFiles = oDir.GetFiles("*.xls", IO.SearchOption.AllDirectories)
 
For Each oFile In oFiles
   Console.WriteLine(oFile.FullName)
next
 
Console.readline()