Sub main()
    DirSearch("\\cad001\TceVolume\Produktion", "*.tif")
    Console.ReadKey()
End Sub
 
Sub DirSearch(ByVal sDir As String, ByVal sTyp As String)
    Try
        For Each d As String In IO.Directory.GetDirectories(sDir)
            Try
                For Each f As String In IO.Directory.GetFiles(d, sTyp)
                    'Application.DoEvents()
                    Console.WriteLine(f)
                Next
                DirSearch(d, sTyp)
            Catch ex As Exception
                Debug.Print(ex.Message)
            End Try
        Next
    Catch excpt As Exception
        Debug.Print(excpt.Message)
    End Try
End Sub