Egy fájllal több fájl felülírása
-
Dodo55 #13 Elkészült a programom
Letöltés
Elég veszélyes a program, mert úgy működik, hogy minden fájlt, ami abban a mappában van, ahol a program, felülír a megadott fájllal. Szóval óvatosan vele!
Forráskód(Dark Basic Professional):
set text font "system"
set text size 14
input "Sokszorosítandó fájl: ", sfile$
if file exist(sfile$)=0 then print "A megadott fájl nem létezik!" : wait key : end
perform checklist for files
for i=1 to checklist quantity()
if checklist string$(i)<>sfile$ and checklist string$(i)<>"sokszorosit.exe"
delete file checklist string$(i)
copy file sfile$, checklist string$(i)
endif
next i
print checklist quantity()
print "KÉSZ"
wait key