FireNET

no, iam not. ConvertSize Credit: crzftx

Thanks for this great udf. fixed above post: i can extract now. edited unzip example with progress bar. #include <GUIConstants.au3> #include <ListViewConstants.au3> #Include <_ZipPlugin.pll.au3> #Region ### START Koda GUI section ### Form= $ZipPluginTest = GUICreate("ZipPluginTest", 633, 487, 193, 115) $btnList2Array = GUICtrlCreateButton("List2Array", 20, 410, 75, 25, 0) $btnGetCount = GUICtrlCreateButton("GetCount", 120, 410, 75, 25, 0) $btnZipItemInfo2Array = GUICtrlCreateButton("ZipItemInfo2Array", 220, 410, 175, 25, 0) $btnUnzip = GUICtrlCreateButton("Unzip", 420, 410, 75, 25, 0) $btnExit = GUICtrlCreateButton("Exit", 520, 410, 75, 25, 0) $Progress1 = GUICtrlCreateProgress(22, 440, 580, 17) $Label1 = GUICtrlCreateLabel("", 22, 460, 302, 17) GUICtrlSetState(-1, $GUI_DISABLE) $edtListView = GuiCtrlCreateListView(" |Name |Ctime|Mtime|Size|Ratio|Packed",10,10,610,185) GUICtrlSendMsg($edtListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES) GUICtrlSendMsg($edtListView, 0x101E, 1, 150) ;GUICtrlSendMsg($ListView1, 0x101E, 1, 150) $edtOutput = GUICtrlCreateEdit("", 10, 200, 610, 184) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 10, 400, 0, "Courier New") GUICtrlSetColor(-1, 0xFFFF00) GUICtrlSetBkColor(-1, 0x000000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GuiCtrlSetState($btnExit,$GUI_ENABLE) ;My Zip file $ZipFILE = "SealGG12Sep08.zip" Local $handle, $v_ret,$msg if (($handle = PluginOpen("C:\Au3Zip\bin\Au3Zip.dll")) <> 0) Then $ZR_RECENT =1 EndIf While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $btnExit Exit Case $btnList2Array GUICtrlSetData($Progress1, 0) GuiCtrlSetState($btnExit,$GUI_DISABLE) Local $szZipFiles = _ZipList2Array($ZipFILE) $Percent = 0 $Sum = 0 For $x = 0 to UBound($szZipFiles,1)-1 ;ConsoleWrite($x&@LF) if Not @error then $msg &= ("Index:"&$szZipFiles[$x][$ZIP_INDEX]&@CRLF) $msg &= ("Name :"&$szZipFiles[$x][$ZIP_NAME]&@CRLF) $msg &= ("Atime:"&$szZipFiles[$x][$ZIP_ATIME]&@CRLF) $msg &= ("Ctime:"&$szZipFiles[$x][$ZIP_CTIME]&@CRLF) $msg &= ("Mtime:"&$szZipFiles[$x][$ZIP_MTIME]&@CRLF) $msg &= ("CSize:"&$szZipFiles[$x][$ZIP_CSIZE]&@CRLF) $msg &= ("USize:"&$szZipFiles[$x][$ZIP_USIZE]&@CRLF) $msg &= (@CRLF) $item = StringFormat("%s|%s|%s|%s|%s|%s|%s",$szZipFiles[$x][$ZIP_INDEX],$szZipFiles[$x][$ZIP_NAME],$szZipFiles[$x][$ZIP_CTIME], _ $szZipFiles[$x][$ZIP_MTIME],$szZipFiles[$x][$ZIP_USIZE],_ZipGetRatio($szZipFiles[$x][$ZIP_CSIZE],$szZipFiles[$x][$ZIP_USIZE])&"%",$szZipFiles[$x][$ZIP_CSIZE]) GUICtrlCreateListViewItem($item,$edtListView) $CurrentSize = $szZipFiles[$x][$ZIP_CSIZE] If Not $x = 0 Then $Percents = ( $x / (UBound($szZipFiles,1)-1) ) * 100 GUICtrlSetData($Progress1, $Percents) $CurrentSize = $szZipFiles[$x][$ZIP_CSIZE] + $CurrentSize $Sum += $szZipFiles[$x][$ZIP_CSIZE] EndIf GUICtrlSetData($Label1, "Size: " & ConvertSize($CurrentSize) & "/" & ConvertSize($Sum) & " Total Files: " & UBound($szZipFiles,1)-1) endif For $i = 0 to UBound($szZipFiles,1)-1 $TotalSize = $szZipFiles[$i][$ZIP_CSIZE] _AddMessage($edtOutput,$TotalSize) Next Next ;GUICtrlSetData($Label1, "Done.") _AddMessage($edtOutput,$msg) GuiCtrlSetState($btnExit,$GUI_ENABLE) Case $btnGetCount GUICtrlSetData($Progress1, 0) $numitems = _ZipGetCount($ZipFILE) _AddMessage($edtOutput,"_ZipGetList:NumItems>"&($numitems)) Local $szZipFiles = _ZipList2Array($ZipFILE) Local $msg="File List"&@CRLF For $x = 0 to UBound($szZipFiles,1)-1 $msg &= ("Index:"&$szZipFiles[$x][$ZIP_INDEX]&@CRLF) $msg &= ("Name :"&$szZipFiles[$x][$ZIP_NAME]&@CRLF) $msg &= ("Atime:"&$szZipFiles[$x][$ZIP_ATIME]&@CRLF) $msg &= ("Ctime:"&$szZipFiles[$x][$ZIP_CTIME]&@CRLF) $msg &= ("Mtime:"&$szZipFiles[$x][$ZIP_MTIME]&@CRLF) $msg &= ("CSize:"&$szZipFiles[$x][$ZIP_CSIZE]&@CRLF) $msg &= ("USize:"&$szZipFiles[$x][$ZIP_USIZE]&@CRLF) $msg &= (@CRLF) If Not $x = 0 Then $Percents = ( $x / (UBound($szZipFiles,1)-1) ) * 100 GUICtrlSetData($Progress1, $Percents) EndIf Next ;MsgBox(0,"Files",$msg) _AddMessage($edtOutput,$msg) Case $btnZipItemInfo2Array ;============================================================================== ; Show a list of file info for a file in the zip ;_ZipItemInfo2Array($ZipFile,$ItemIndex) ;============================================================================== Local $szZipFiles = _ZipItemInfo2Array($ZipFILE,1) if Not(@error) Then $msg &= ("Index:"&$szZipFiles[$ZIP_INDEX]&@CRLF) $msg &= ("Name :"&$szZipFiles[$ZIP_NAME]&@CRLF) $msg &= ("Atime:"&$szZipFiles[$ZIP_ATIME]&@CRLF) $msg &= ("Ctime:"&$szZipFiles[$ZIP_CTIME]&@CRLF) $msg &= ("Mtime:"&$szZipFiles[$ZIP_MTIME]&@CRLF) $msg &= ("CSize:"&$szZipFiles[$ZIP_CSIZE]&@CRLF) $msg &= ("USize:"&$szZipFiles[$ZIP_USIZE]&@CRLF) $msg &= (@CRLF) $item = StringFormat("%s|%s|%s|%s|%s|%s|%s",$szZipFiles[$ZIP_INDEX],$szZipFiles[$ZIP_NAME],$szZipFiles[$ZIP_CTIME], _ $szZipFiles[$ZIP_MTIME],$szZipFiles[$ZIP_USIZE],_ZipGetRatio($szZipFiles[$ZIP_CSIZE],$szZipFiles[$ZIP_USIZE])&"%",$szZipFiles[$ZIP_CSIZE]) GUICtrlCreateListViewItem($item,$edtListView) EndIf _AddMessage($edtOutput,$msg) $v_ret = _ZipGetCount($ZipFILE) _AddMessage($edtOutput,'_ZipGetList($ZipFILE)') _AddMessage($edtOutput,"_ZipGetList:return code>"&($v_ret)) Case $btnUnzip GUICtrlSetData($Progress1, 0) ;UNZIP $szDestDir = @ScriptDir & "\zip_utils_srct" $szPattern = "*" $vResult = 0 $aZipList = _ZipList2Array($ZipFILE) For $x =0 to UBound($aZipList) -1 If __ZipWildCardMatch($aZipList[$x][1],StringReplace($szPattern,"/","\"),0) Then GUICtrlSetData($Label1, "Extracting: " & $aZipList[$x][1] & "(" & ConvertSize($aZipList[$x][6]) & ")" ) $vResult = _ZipUnZipItem($ZipFILE,$aZipList[$x][1],$szDestDir) If $vResult <> 0 Then Return SetError(1,$vResult,0) EndIf If Not $x = 0 Then $Percents = ( $x / (UBound($aZipList) -1) ) * 100 GUICtrlSetData($Progress1, $Percents) EndIf Next GUICtrlSetData($Label1, "Done.") ConsoleWrite("@error= "&@error); _AddMessage($edtOutput,"_ZipUnZip:return code>"&$vResult) _AddMessage($edtOutput,_ZipFormatMessage($vResult)) EndSwitch WEnd Func _AddMessage($edtOutput,$msg,$flag =1) GuiCtrlSetData($edtOutput,$msg&@CRLF,$flag) EndFunc Func ConvertSize($inputSize, $inputUnit = 0, $outputPlaces = 2, $outputString = True, $inputBits = False, $outputBits = False, $outputUnit = -4) Local $unitNames[9] = ["","K","M","G","T","P","E","Z","Y"] Local $bytes = $inputSize * 1024 ^ $inputUnit Local $b = "B" If $inputBits Then $bytes /= 8 If $outputBits Then $bytes *= 8 $b = "b" EndIf If $outputUnit < 0 Then Local $outputMax = Abs($outputUnit) $outputUnit = Int(Log($bytes)/Log(1024)) If $outputUnit > $outputMax Then $outputUnit = $outputMax EndIf If $outputString Then Return String(Round($bytes / 1024 ^ $outputUnit, $outputPlaces)) & $unitNames[$outputUnit] & $b Else Return Round($bytes / 1024 ^ $outputUnit, $outputPlaces) EndIf EndFunc

getsize cause autoit error. $server = '128.232.104.10' $username = 'anonymous' $pass = '' $Hand = _FTPOpen('Doesnt Matter') $Ftpc = _FTPConnect($Hand, $server, $username, $pass) if @error then msgbox(0,"Error","Connect Error") Exit EndIf $Ftpg = _FTPGetFileSize($Hand, '/index.htm') $Ftpc = _FTPClose($Hand);Close ftp session get autoit.exe error AppName: autoit3.exe AppVer: 3.2.12.1 ModName: unknown ModVer: 0.0.0.0 Offset: 0000000e

How to get total file size inside the zip file? Not the zipped file size.

yes i have see the example, but my label are single line and yours is multiple line i tried to make it single line but the print text just mess up. it print the first extract file and second, third on the label without clearing it. how about extract with a progress bar is it possible?

is it possible to print file that extract from the zip inside the status label? my label is create from GUICtrlCreateLabel if possible, how? TQ

Nvm, found it now. Thanks for the great script

can u show where should i change in this script. i've read http://www.autoitscript.com/forum/index.ph...indowattributes and try but dont know where should i change if i use a script from lorden Thanks

Hi, i cant extract the zip file using this plugins. my code: #include-once #Include <_ZipPlugin.au3> Local $hPlugin, $hZip , $ZR_RECENT = 1 $hPlugin = PluginOpen(@ScriptDir&"\Au3Zip.dll") if $hPlugin then $hZip = ZipUnZip( "test.zip", @ScriptDir) PluginClose($hPlugin) endif it just give this msg in syntax check: >"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\Downloads\Compressed\Launcher+autopatch+source\Au3_Zip\bin\testzip.au3" 1 >Exit code: 0 Time: 0.207 no error but no files is extracting from the zip files. is something wrong with my code? i have copy _ZipPlugin.au3, dll to autoit include folder and to ScriptDir still the same. Btw, does this plugin support silent overwrite?