**** #>pozor na padajici hvezdy<#


do najdi_soubory IN oprava_po_vypadku
if ! prazdna()
    delete for atrib = "D"
    delete for right(alltrim(nazev), 4) # ".dbf"
*    replace all adresar with alltrim(adresar) + nazev

    on error do err_h with error(), message()
    scan
       nazev = ""
       soubor = alltrim(adresar)
       wait m.soubor wind nowa at 22,22
       select 0
       use (m.soubor)
       use
       select soubory
       gather field nazev memvar
    endscan
    set filter to ! empty(nazev)
    replace all adresar with alltrim(adresar) + "  " + nazev
    pack
    wait clear
    go top
    if eof()
       MESSAGEBOX("všechno v pořádku",1+64,"otevirac",2222)
    else
       browse field adresar title "Tyto soubory nelze otevřít:"
    endif
    on error
endif
WAIT CLEAR  

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
proc err_h
parameters err_no, mssg
do case
case err_no = 1705
  *
other
  nazev = str(error()) + ": " + message()
endcase

