Dodo55#6
input "Sokszorosítandó fájl: ", sfile$
perform checklist for files
for i=1 to checklist quantity()
if checklist string$(i)<>sfile$ and checklist string$(i)<>"sokszorosit.exe"
copy file sfile$, checklist string$(i)
endif
next i
print "KÉSZ"
wait key
Elméletileg jó, még nem teszteltem, Dark Basic Proban írtam