Dim Quelldatei As String, Zieldatei(20) As String
Dim i As Integer
 
Zieldatei = Array("Zielpfad1", "Zielpfad2", ..... , "Zielpfad20")
 
Quelldatei = "Quellpfad"  ' Namen der Quelldatei festlegen.
 
For i = 1 To UBound(Zieldatei)
    FileCopy Quelldatei, Zieldatei(i)   ' Quell- in Zieldatei kopieren.
Next i