Dim sUV As Integer
                If dr.Item("UVERZEICHNIS") = "TRUE" Then
                    sUV = SearchOption.AllDirectories
                Else
                    sUV = SearchOption.TopDirectoryOnly
                End If
                Dim filesA As String() = Directory.GetFiles(dr.Item( _
                  "QUELLPFAD"), dr.Item("ENDUNG"), sUV)
                Dim filesB As String() = Directory.GetFiles(dr.Item( _
                "ZIELPFAD"), dr.Item("ENDUNG"), sUV)