For i As Integer = 0 To Files.Length - 1
    File = Files(i).Substring(Files(i).LastIndexOf("\") + 1)
 
    Try
        System.IO.File.Copy(Files(i), Dest & "\" & File, True)
        Console.WriteLine(Files(i))
 
    Catch ex As Exception
        'Datei verwendet
        errors(errorIndex) = Files(i).ToString
        errorIndex += 1
    End Try
Next i

errors(errorIndex) = Files(i).ToString

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak