Browse for zip to extract.

[soso]

Hi been working on the zip extraction and got it to extract a zip in a folder but would like to change this code :

tFiles = Zip.GetContents("AutoPlay\\Docs\\Test.zip", false);

--unzip the files
StatusDlg.Show(0, false);
Zip.Extract("AutoPlay\\Docs\\Test.zip", tFiles, _TempFolder, false, false, "", ZIP_OVERWRITE_ALWAYS, CallBack)


So the user can browse for the zip and then it extracts when you press button.


Can anyone help please


Cheers soso

[RizlaUK]

This will ask the user for the zip file then ask for the folder to extract to

GetFile = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
GetFolder = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);


Zip.Extract(GetFile[1], {"*.*"}, GetFolder, true, true, "", ZIP_OVERWRITE_NEVER, nil); 

This is real basic stuff, id suggest you read the manual as there are plenty of examples of how to do stuff like this :yes

[soso]

This will ask the user for the zip file then ask for the folder to extract to

GetFile = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
GetFolder = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);


Zip.Extract(GetFile[1], {"*.*"}, GetFolder, true, true, "", ZIP_OVERWRITE_NEVER, nil); 

This is real basic stuff, id suggest you read the manual as there are plenty of examples of how to do stuff like this :yes

Thanks for the help and putting me in the right direction, i did read the manaul and sorted out the zip functions but was just having problem with the browse,this may be real basic stuff for yourself and now its real easy for me now but its only easy if you know the answer.

Many thanks soso

[RizlaUK]

but its only easy if you know the answer.

thats very true and sometimes i forget to take that into account

you might want to add some error checking it there as well, this is a lil function i came up with for such a task


put this in globals

function OpenZip()
    GetFile = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
    if GetFile[1] == "CANCEL" then
    Application.ExitScript();
    else    
    GetFolder = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
        if GetFolder == "CANCEL" then
        Application.ExitScript();
        else
        Zip.Extract(GetFile[1], {"*.*"}, GetFolder, true, true, "", ZIP_OVERWRITE_NEVER, nil);
        err = Application.GetLastError();
            if (err ~= 0) then
                Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
            end
        end
    end
end 

and call the function with

OpenZip(); 

[bwlewis]

how would you go about getting the / a progress dialogue
when the zip file is extracting........
please

[RizlaUK]

just add the 2 lines of red code

function OpenZip() 
    -- get the location of the zip archive 
    GetFile = Dialog.FileBrowse(true, "Locate Zip File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false); 
    -- check that cancel wasent clicked, if it was exit the script 
    if GetFile[1] == "CANCEL" then 
    Application.ExitScript(); 
    else 
    -- get the folder to extract to     
    GetFolder = Dialog.FolderBrowse("Please select a folder to extract to:", _DesktopFolder); 
        -- check that cancel wasent clicked, if it was exit the script 
        if GetFolder == "CANCEL" then 
        Application.ExitScript(); 
        else
       [COLOR="Red"] StatusDlg.Show(MB_ICONNONE, false); [/COLOR]
        -- extract the archive 
        Zip.Extract(GetFile[1], {"*.*"}, GetFolder, true, true, "", ZIP_OVERWRITE_NEVER, nil); 
        -- check that there was no error, if there was inform the user 
        err = Application.GetLastError(); 
        [COLOR="Red"]StatusDlg.Hide();[/COLOR]
            if (err ~= 0) then 
                Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); 
            end 
        end 
    end 
end  
-- call the function 
OpenZip();

[raivenz]

a cancel button in status.dlg

and how about adding a cancel or abort button in status.dlg
while the zip file is extracting?
StatusDlg.ShowCancelButton(true, "Abort"); <--where should i put this?
i just wanted to cancel the file extraction.

thankz in advance

BR raivenz