Listbox in userform pdf files Kopieeren

Private Sub UserForm_Initialize()
	Dim MyFolder As String
	Dim MyFile As String
	Dim j As Integer
	MyFolder = "C:\Test"
	MyFile = Dir(MyFolder & "\*.pdf")
	Do While MyFile <> ""
		ListBox1.AddItem MyFile
		MyFile = Dir
	Loop
End Sub

For i = 0 To Me.ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
       FileCopy "C:\Test\" & ListBox1.List(i), "C:\Test2\" & ListBox1.List(i)
    End If
Next

Private Sub CommandButton1_Click()
    For lItem = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(lItem) Then
            FileCopy "C:\Test\" & Me.ListBox1.List(lItem), "D:\Pdffiles\" & Me.ListBox1.List(lItem)
        End If
    Next lItem
    MsgBox "Bestand(en) gekopieerd"
End Sub

ListBox1.List = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""c:\test\*.pdf""/o:n /b").stdout.readall, vbCrLf)