* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*
*   2020-01-15  mazani cdx s nulovou delkou
*   2021-08-15  samotne mazani v try-catch
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

IF m.issql
    RETURN
ENDIF 

CLOSE DATA

DO jeden_adresarcdx WITH m.gchom_path
DO jeden_adresarcdx WITH m.gchom_path + "data\"


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
procedure jeden_adresarcdx
LPARAMETERS aa_adresar
PRIVATE iiicdx, pocetcdx

pocetcdx = ADIR(qqq, m.aa_adresar + "*.cdx")
FOR iiicdx = 1 TO pocetcdx
  IF qqq(iiicdx,2) < 11
    WAIT m.aa_adresar + qqq(iiicdx,1) + STR(qqq(iiicdx, 2))  + STR(m.iiicdx) + STR(m.pocetcdx,4) WINDOW TIMEOUT 2
    TRY 
        ERASE m.aa_adresar + qqq(iiicdx,1)
    CATCH
    ENDTRY 
    small_log ("SMAZAN NULOVY " + m.aa_adresar + qqq(iiicdx,1), "poskozene_soubory")
   ENDIF 
ENDFOR
