DO copy_dbf WITH m.gchom_path +      "*", m.gcpri_path + "zaloha\"
DO copy_dbf WITH m.gchom_path + "data\*", m.gcpri_path + "zaloha\data\"



*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    
PROCEDURE copy_dbf
PARAMETERS __odkud, __kam
WAIT m.__kam WINDOW AT 22,22 NOWAIT 
__koliksouboru = adir(__seznam, justpath(m.__odkud) + "\" + juststem(m.__odkud) + ".dbf")
__odkud = justpath(m.__odkud) + "\" 
__kam = __kam + IIF(RIGHT(m.__kam, 1)="\", "", "\")
IF ! directory(m.__kam)
   mkdir (m.__kam)
ENDIF 
FOR __iii = 1 to m.__koliksouboru
    __sourcefile = m.__odkud + __seznam(__iii, 1)
    vysledek = m.__sourcefile 
    otevreno = .F.
    TRY     
        USE (m.__sourcefile)
        otevreno = .T.
    CATCH 
        vysledek = m.vysledek + "  nelze otevrit "
    FINALLY
    ENDTRY 

    IF m.otevreno
        prikaz = 'COPY ALL TO "' + LOWER(m.__kam + juststem(__seznam(__iii, 1))) + '"'

        IF FILE( m.__odkud + juststem(__seznam(__iii, 1)) + ".cdx" )
             prikaz = m.prikaz + " with cdx"
        ENDIF 

        TRY
             &prikaz
        CATCH 
             vysledek = m.vysledek +  " CHYBA v prikazu: " + m.prikaz
        ENDTRY 

        USE 
    ENDIF 
    small_log(m.vysledek, "zalohuj")
ENDFOR 

WAIT CLEAR 