Jump to content

Recommended Posts

Posted

i has file need to unzip use 7zip

i want make a "loading bar" seem install or unzip % <--show in the bar..

how can i do ?

sorry my english is very poor.= =

Posted (edited)

i has file need to unzip use 7zip

i want make a "loading bar" seem install or unzip % <--show in the bar..

how can i do ?

sorry my english is very poor.= =

i am sorry i has find some ppl au3...

#include <Process.au3>
#Include <File.au3>
#Include <Array.au3>



$folderpath = FileSelectFolder("Choose a folder.", "");choose a directory
$FileList=_FileListToArray($folderpath); array of files in directory
Dim $szDrive, $szDir, $szFName, $szExt, $i=1

ProgressOn("Multiple Zip", "0 percent", "Zipping")

    while $i<=$FileList[0]; do for all files in directory
        
        $Percent=Round((100/$FileList[0])*$i)
        
        $TsplitPath = _PathSplit($FileList[$i], $szDrive, $szDir, $szFName, $szExt);split filename and extension
        
        ProgressSet( $Percent, "Zipping:" & $FileList[$i],$Percent & " percent")
        
        RunWait("7z a -tzip "&"""" & $folderpath & "\(Zipped)\" & $szFName & ".zip"" """  & $folderpath & "\" & $FileList[$i] & """"   , "", @SW_HIDE  );run 7zip command line
        $i+=1;next file
        
    WEnd

ProgressOff()
MsgBox(0,"Multiple ZIp","Files Ziped to:"& @CRLF & $folderpath)
Exit

it is very useful but if i want to zip one folder in one zip file , how can i change script?

and

i want to uncompression one file also seem is ~ how can i change?

Edited by casperha

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...