Listbox Items kopieren

Private Sub WhatEverYouWant()
    Dim strPathTarget As String = "D:\test"  
    For Each itm As String In ListBox1.Items
        If System.IO.File.Exists(itm) Then
            Dim dtSource As DateTime = System.IO.File.GetCreationTime(itm)
            Dim dst As String = System.IO.Path.Combine(strPathTarget, System.IO.Path.GetFileName(itm))
            Try
                System.IO.File.Copy(itm, dst)
                System.IO.File.SetCreationTime(dst, dtSource)
            Catch ex As Exception
                MsgBox("Exception: " & ex.Message, MsgBoxStyle.Exclamation)  
            End Try
        End If
    Next
End Sub