PARAMETERS odkud, kam

vysledek = "v.2019-0520 "
pocet = ADIR(qqq, odkud + "gros*.csv")
? m.pocet

FOR iii = 1 TO m.pocet
    stem = JUSTSTEM(qqq(iii, 1))
    ? m.stem
    IF ADIR(qwe, m.kam + m.stem + ".*") = 0
        COPY FILE (m.odkud + qqq(iii, 1)) TO (m.kam + qqq(iii, 1))
        vysledek = m.vysledek + m.stem + "  "
    ENDIF 
ENDFOR 
vysledek = m.vysledek + CHR(13)+CHR(10)
