DO clos_data 

cesta_k_zaloze = GETDIR("", "Kam zalohovat?")

IF .not. EMPTY(m.cesta_k_zaloze)
    IF MESSAGEBOX("Opravdu zalohovat do adresare" + CHR(13) + m.cesta_k_zaloze + "?", 3+32+256,"Zalohovac SK_A") = 6
        cesta_k_zaloze = m.cesta_k_zaloze + "backup_" + TTOC(DATETIME(),1) + "\"
        MKDIR(m.cesta_k_zaloze)
        hlaska = "*** "
        do jedensoubor with "sk_fin_a"
        do jedensoubor with "sk_plt_a"
        do jedensoubor with "sk_pol_a"
        do jedensoubor with "sk_sez_a"
        do jedensoubor with "sk_txt_a"
    ENDIF 
ENDIF 
DO clos_data 
WAIT clear

*   *   *   *   *   *   *   *   *   *   *   *   *   
PROCEDURE jedensoubor
PARAMETERS soub
hlaska = hlaska + LEFT(m.soub, 6) + " *** "
WAIT m.hlaska WINDOW AT 22,22 NOWAIT 
USE (m.gccen_path + m.soub) EXCLUSIVE 
COPY all to (m.cesta_k_zaloze + m.soub)
ZAP 
USE 

