Option Explicit
 
Private Sub Form_Load()
 
    File1.Path = "C:\Ordner1"
 
End Sub
 
Private Sub cmdCopy_Click()
 
    Dim i As Integer
    Dim make As New FileSystemObject
 
        ' Wenn du eine Progressbar einbauen möchstest:
        ProgressBar1.Max = File1.ListCount
 
        For i = 0 To File1.ListCount - 1
            File1.ListIndex = i
            make.CopyFile File1.Path & "\" & File1.FileName, "C:\Ordner2" & "\" _
              & File1.FileName, True
 
            ' Code für die ProgressBar
            ProgressBar1.Value = i + 1
        Next i
 
        MsgBox "Dateien kopiert!", vbInformation, ""
        ProgressBar1.Value = 0
 
End Sub