Histórico da Página

{utp/ut-zip.i}

def temp-table ttlista2 like tt-listfiles.

define variable arquivo as character   no-undo.
define variable h-zip as handle     no-undo.

run utp/ut-zip.p persistent set h-zip.

input from os-dir("c:\temp\ziptest").
repeat:
    import arquivo.
    if  arquivo begins '.' then
        next.

    create ttlista2.
    assign ttlista2.cfile = "c:\temp\ziptest\" + arquivo.
end.
input close.

for each tt-listfiles where tt-listfiles.cfile = '':
    delete tt-listfiles.
end.

pause 0 before-hide.
for each ttlista2:

    disp 
        ttlista2.cfile label 'arquivo'  format 'x(50)'
        with 
        side-label
        frame flabel
        size 70 by 3
        view-as dialog-box.
    process events.

    create tt-listfiles.
    buffer-copy ttlista2 to tt-listfiles.

    run zipfiles        in h-zip (input "c:\temp\teste02.zip",
                                  input table tt-listfiles,
                                  input true,
                                  output table tt-erros).

    delete tt-listfiles.
end.

for each tt-erros:
    disp tt-erros.
end.

delete procedure h-zip.