Sub Main()
        For Each Datei As String In IO.Directory.GetFiles( _
          "\\cad001\TceVolume\Produktion",
                                                          "*.tif",
                                                          IO.SearchOption.AllDi_
                                                            rectories)
            Console.WriteLine(Datei)
 
        Next
        Console.WriteLine("Taste...")
        Console.ReadKey()
    End Sub